1、1. 以下叙述中错误的是A) 在 Keyup 和 Keydown 事件过程中，从键盘上输入 A 或 A被视作相同的字母(即具有相同的 Keycode) B) 在 Keyup 和 Keydown 事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的 Keycode) C) Keypress 事件中不能识别键盘上某个键的按下与释放D) Keypress 事件中可以识别键盘上某个键的按下与释放2.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述
2、功能的程序是A） Private Sub List1_Click() B）Private Sub List1_Click()Label1.Caption = List1.Listindex Label1. Name = List1. ListindexEnd Sub End SubC） Private Sub List1_Click() D）Private Sub List1_Click()Label1.Name = List1.Text Label1.Caption = List1.TextEnd Sub End Sub3. 在窗体上画一个名称为 Commondialog1 的通用对话框，一
3、个名称为 Command1 的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save“ ，缺省文件名为“Savefile“，在“文件类型“栏中显示*.Txt。则能够满足上述要求的程序是A）Private Sub Command1_Click()Commondialog1.Filename = “Savefile“Commondialog1.Filter=“AllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc“Commondialog1.Filterindex = 2Commondialog1.Dialogtitle = “Save“Co
4、mmondialog1.Action = 2End SubB） Private Sub Command1_Click()Commondialog1.Filename = “Savefile“Commondialog1.Filter = “All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc“Commondialog1.Filterindex = 1Commondialog1.Dialogtitle = “Save“Commondialog1.Action = 2End SubC）Private Sub Command1_Click()Commondialog1.F
5、ilename = “Save“Commondialog1.Filter = “All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc“Commondialog1.Filterindex = 2Commondialog1.Dialogtitle = “Savefile“Commondialog1.Action = 2End SubD）Private Sub Command1_Click()Commondialog1.Filename = “Savefile“Commondialog1.Filter = “All Files|*.*|(*.Txt)|*.Txt|(*.
6、Doc)|*.Doc“Commondialog1.Filterindex = 1Commondialog1.Dialogtitle = “Save“Commondialog1.Action = 1End Sub4.在窗体上画一个名称为 Text1 的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = “Text1.SetfocusEnd SubPrivate Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)Print “程序设计“En
7、d SubPrivate Sub Text1_Keydown(Keycode As Integer, Shift As Integer)Print “Visual Basic“;End Sub程序运行后，如果按“A“键，然后单击窗体，则在窗体上显示的内容是A）Visual Basic B）程序设计C）A 程序设计 D）Visual Basic 程序设计5. 在窗体上画一个名称为 Commanddialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()Commondialog1.Filename =“Co
8、mmondialog1.Filter=“All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“Commondialog1.Filterindex=2Commondialog1.Dialogtitle=“Vbtest“Commondialog1.Action=1End Sub对于这个程序，以下叙述中错误的是A） 该对话框被设置为“打开”对话框B） 在该对话框中指定的默认文件名为空C） 该对话框的标题为 VbtestD） 在该对话框中指定的默认文件类型为文本文件(*.Txt)6.把窗体的 Keypreview 属性设置为 True，然后编写如下两个事件过程：Privat
9、e Sub Form_Keydown(Keycode As Integer, Shift As Integer)Print Chr(Keycode)End SubPrivate Sub Form_Keypress(Keyascii As Integer)Print Chr(Keyascii)End Sub程序运行后，如果直接按键盘上的“A“键（即不按住 Shift 键），则在窗体上输出的字符分别是 【A】 和 【a】 。7. 在窗体上画一个名称为 Combo1 的组合框，画两个名称分别Label1 和 Label2 及 Caption 属性分别为“城市名称“和空白的标签。程序运行后，当在组合框
10、中输入一个新项后按回车键（ASCII 码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项“如图所示；如果存在，则在 Label2 中给出提示“输入项已在组合框中“。请在 【12】 、 【13】 和【14】处将程序补充完整。Private Sub Combo1_ 【 Keypress 】 (Keyascii As Integer)If Keyascii = 13 ThenFor I = 0 To Combo1.Listcount-1If Combo1.Text = 【Combo1.List(I) 】 ThenLabel2
11、.Caption = “输入项已在组合框中“Exit SubEnd IfNext ILabel2.Caption = “已成功添加输入项“Combo1. 【AddItem】 Combo1.TextEnd IfEnd Sub8. 设有语句 X=Inputbox(“输入数值”， “0”， “示例”)程序运行后，如果从键盘上输入数值 10 并按回车键，则下列叙述中正确的是A) 变量 X 的值是数值 10 B) 在 Inputbox 对话框标题栏中显示的是“示例”C) 0 是默认值 D) 变量 X 的值是字符串“10”9. 从键盘上输入两个字符串，分别保存在变量 Str1、Str2 中。确定第二个字符
12、串在第一个字符串中起始位置的函数是A) Left B) Mid C) String D) Instr10.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1_Click()A$ = “Software And Hardware“B$ = Right(A$, 8)C$ = Mid(A$, 1, 8)Msgbox A$, , B$, C$, 1End Sub则在弹出的信息框的标题栏中显示的信息是A）Software And Hardware B）Software C）Hardware D）111.执行语句：A = Input
13、box(“Today“, “Tomorrow“, “Yesterday“, , , “Day Before Yesterday“, 5)将显示一个输入对话框，在对话框的输入区中显示的信息是A）Today B）Tomorrow C）Yesterday D）Day Before Yesterday12.以下叙述中错误的是A）用 Shell 函数可以调用能够在 Windows 下运行的应用程序B）用 Shell 函数可以调用可执行文件，也可以调用 Visual Basic的内部函数C）调用 Shell 函数的格式应为：=Shell ()D）用 Shell 函数不能执行 DOS 命令13.在窗体上画一
14、个命令按钮和一个文本框，然后编写命令按钮的Click 事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写） ，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1中输入的是 Abdfdb，则单击 Command1 按钮后 Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( ) Dim Str As String, S As String, C As String Str = Ucase(Text1) S = “ C = “Z
15、“ While C = “A“ If Instr(Str, C) = 0 Then S = 【7】 S&C End If C = Chr$(Asc(C) 【8】 -1 ) Wend If S C 后，窗体上显示的是A）True B）False C）1 D）出错信息20. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X = -5 If Sgn(X) Then Y = Sgn(X 2) Else Y = Sgn(X) End If Print Y End Sub 程序运行后，单击命令按钮，窗体上显示的是 A)
16、 -5 B) 25 C) 1 D) -121. 以下关于 Msgbox 的叙述中，错误的是A）Msgbox 函数返回一个整数B) 通过 Msgbox 函数可以设置信息框中图标和按钮的类型C) Msgbox 语句没有返回值D) Msgbox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量22. 执行如下两条语句，窗体上显示的是A=9.8596Print Format(A,“$00,00.00“)A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8623.设 A=5,B=4,C=3,D=2，下列表达式的值是32*B Or A=C And BDA)1 B
17、)True C)False D)224. 在窗体上画一个名称为 Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim I As Integer,N As IntegerFor I=0 To 50I=I+3N=N+1If I10 Then Exit ForNextText1.Text=Str(N)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3 D) 4 D) 525.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为Text1、Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is D),”A”,”B”)后，X 的值为：A)”a ”B)”b”C)”B”D)”A”
