国家开放大学
设计一个显示欢迎信息的窗体的程序。要求程序运行后，在窗体上的标签LabA中显示“欢迎您！”（如图），若用户选中单选钮OpA“粗体”时，LabA中以粗体显示文本；用户选中单选钮OpB“正常”时，标签框LabA不再以粗体显示文本。按命令按钮ComA“结束”时，程序终止。
题目
相似问题和答案
第1题：
窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt，当单击测试按钮时，弹出一个消息框，消息框中包括“确定”和“取消”按钮，若单击“确定”按钮则在文本框中显示“显示”，若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。
Private sub cmdtest_click()
answer=msgbox("显示钮按", vbOkCancel)
If 【 】 then
txt="显示"
Else
txt="取消"
End If
End sub
Private sub cmdexit_click()
【 】
End sub
answer=vbOK ； docmd.close 解析：因为程序要求单击“确定”按钮显示“显示”两个字，因此判断条件为answer= vbOK，单击退出按钮关闭窗体，因此用docmd.close。
第2题：
在考生文件夹下有“xx”数据库。
在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
第3题：
考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计好表对象“tUscr”，同时还设计出窗体对象“fEdit”和“fUser”。请在此基础上按照以下要求补充“fEdit”窗体的设计：
(1)将窗体中名称为“1Remark”的标签控件上的文字颜色改为“棕色”(棕色代码为128)、字体粗细改为“加粗”。
(2)将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线：将窗体标题设置为“修改用户口令”。
(3)将窗体中名称为“tPass”和“tEnter”文本框中的内容以密码方式显示。
(4)按如下控件顺序设置Tab键次序：“CmdEdit”→“tUser1”→“tRemark1”→“tPass”→“tenter”→“CmdSave”→“emdquit”一窗体右侧列表(标题是修改系统用户)。
(5)按照以下窗体功能，补充事件代码设计。
窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有“修改”、“保存”和“退出”三个命令按钮，名称分别为"CmdEdit”、“CmdSave”和“cmdquit”。当单击“修改”按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时“保存”按钮变为可用；在“口令”和“确认口令”文本框中输入口令信息后，单击“保存”按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将“保存”命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为“请重新输入口令!”，提示框中只有一个“确定”按钮。单击窗体上的“退出”按钮，关闭当前窗体。
注意：不允许修改窗体对象“fEdit”和“fUser”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tUser”。
只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条语句，不允许增删和修改其他位置已存在的语句。
【操作步骤】 (1)步骤1：打开“samp3．mdb”数据库，选中“窗体”对象，右键单击窗体“fEdit”，选择下拉菜单中的“设计视图”命令。 步骤2：右键单击窗体中的“1Remark”标签控件，选择下拉菜单中“属性”命令，设置窗体的“前景色”为“128”，设置窗体的“字体粗细”为“加粗”。 步骤3：单击“保存”按钮。 (2)步骤1：单击“窗体选择器”，右键单击选择下拉菜单中的“属性”命令，在“属性”对话框中，设置边框样式为“对话框边框”，将窗体的“滚动条”设置为“两者均无”，将窗体的“记录选择器”、“导航按钮”和“分隔线”设置为“否”，将窗体的“标题”设置为：修改用户口令。 步骤2：关闭“属性”对话框。 (3)步骤l：右键单击窗体中名为“tPass”的文本框，选择下拉菜单中的“属性”命令，在数据选项卡中的“输入掩码”中输入：密码。右键单击窗体中名为“tenter”的文本框，选择下拉菜单中的“属性”命令，在数据选项卡中的“输入掩码”中输入：密码。 步骤2：关闭“属性”对话框。 (4)步骤l：右键单击选择下拉菜单中的…lab键次序”，根据题目要求的“CmdEdit”→“tUser 1”→“tRemark 1”→“tPass”→“tenter”→“CmdSave”→“emdquit”→“窗体右侧列表”顺序。依次拖动对象名称，设置Tab键顺序。 步骤2：关闭“Tab键”对话框。 (5)步骤1：右键单击“退出”按钮，选择下拉菜单中的“事件生成器”命令，在空行内输入代码； ************Add1************** Me．CmdSave．Enabled＝0 ************Add1************** ************Add2************** MeltUscr-11．Enabled；False ************Add2************** ************Add3************** MsgBox“请重新输入口令！”。vbOKOnly ************Add3************** ************Add4************** DoCrnd．Close ************Add4************** 步骤2：关闭代码窗口。单击“保存”按钮，关闭设计视图。 解析：本题主要考查窗体下常用控件的设置方法，控件的格式设置，在窗体下控件的功能设计方法．
第4题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。
第5题：
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。
第6题：
在考生文件夹中有文件execise19.vbp及其窗体文件execise19.frm。在名为Form1的窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Chk1和Chk2、标题分别为“篮球”和“乒乓球”：一个名称为Cmd1、标题为“确定”的命令按钮。要求程序运行后，如果只选中“篮球”，单击“确定”命令按钮，则在文本框中显示：“报名参加篮球比赛”；如果只选中“乒乓球”，然后单击“确定”命令按钮，则在文本框中显示：“报名参加乒乓球比赛”；如果同时选中“篮球”和“乒乓球”，单击“确定”命令按钮，则在文本框中显示：“报名参加篮球和乓乓球比赛” (如下图所示)；如果“篮球”和“乒乓球”都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
第7题：
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。
A.文本框中显示的是"程序设计"，且焦点在文本框中
B.文本框中显示的是"等级考试"，且焦点在文本框中
C.文本框中显示的是"程序设计"，且焦点在命令按钮上
D.文本框中显示的是"等级考试"，且焦点在命令按钮上
B。【解析】单击命令按钮首先激发Command1_Click事件，Command1_Click事件将Text1的文本设为“程序设计”，然后将光标置到文本框，这将激发Text1_GotFocus，执行Text1_GotFocus即为B选项结果。
第8题：
（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框
Private Sub Command1_Click()
Text1.Text= ” 程序设计 ”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text= ” 等级考试 ”
End Sub
运行以上程序，单击命令按钮后
A ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中
B ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中
C ）文本框中显示的是 “ 程序设计 ” ，且焦点在命令按钮上
D ）文本框中显示的是 “ 等级考试 ” ，且焦点在命令按钮上
第9题：
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
第10题：
创建名称为Form1的窗体，标题为“欢迎窗口”，并在窗体上画一个命令按钮，名称为“我要进入”。请编写一个事件过程，实现运行程序时，单击命令按钮后按钮消失，窗体上显示“欢迎您的光临尸。运行后窗体如图2所示。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。
Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。在Form1的属性窗口中，将Caption属性设置为“欢迎窗口”。 (2)在工具项中选择标签控件，在窗体合适位置创建标签，在属性窗口中将其Caption属性设置为“欢迎您的光临”，将其Visible属性设置为不可见。 (3)在工具箱中选择命令按钮控件，在窗体合适位置创建命令按钮，在属性窗口中将其 Caption属性设置为“我要进入”。双击命令按钮控件打开代码窗口，在其中输入如下代码： Private Sub Command1_Click() Command1.Visible=False Label1.Visible=True End Sub (4)按F5键运行程序，单击命令按钮如图2所示。 (5)执行“文件”→“保存工程”命令，将工程文件命名为ylc2.vbp，窗体文件命名为 ylc2.frm。 解析：(1)文本框的PasswordChar属性用于设置密码域文本框。将该属性设置为某个字符，运行程序时，输入文本框的内容全部显示为设置好的字符。该属性是上机考试中比较常见的考点。
(2)Click事件是上机考试中最常见的考点之一。本题考查了命令按钮的Click事件。该事件过程要求改变命令控件和标签控件的可见属性，而这一属性通过控件的Visible属性来设置。在代码中，对控件的某属性设置的语句格式为：控件名．属性名；属性值。