《VB二级错题总结.doc》由会员分享，可在线阅读，更多相关《VB二级错题总结.doc（15页珍藏版）》请在金锄头文库上搜索。
1、1. 以下叙述中错误的是A) 在Keyup和Keydown事件过程中，从键盘上输入A或A被视作相同的字母(即具有相同的Keycode) B) 在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode) C) Keypress事件中不能识别键盘上某个键的按下与释放D) Keypress事件中可以识别键盘上某个键的按下与释放2.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A） Private Su
2、b List1_Click() B）Private Sub List1_Click() Label1.Caption = List1.Listindex Label1. Name = List1. Listindex End Sub End Sub C） Private Sub List1_Click() D）Private Sub List1_Click() Label1.Name = List1.Text Label1.Caption = List1.Text End Sub End Sub3. 在窗体上画一个名称为Commondialog1的通用对话框，一个名称为Command1的命令按
3、钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为Savefile，在文件类型栏中显示*.Txt。则能够满足上述要求的程序是A）Private Sub Command1_Click() Commondialog1.Filename = SavefileCommondialog1.Filter=AllFiles|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 2 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End
4、SubB）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 2 End SubC）Private Sub Command1_Click() Commondialog1.Filename = Save Commondialo
5、g1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Filterindex = 2 Commondialog1.Dialogtitle = Savefile Commondialog1.Action = 2 End SubD）Private Sub Command1_Click() Commondialog1.Filename = Savefile Commondialog1.Filter = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc Commondialog1.Fil
6、terindex = 1 Commondialog1.Dialogtitle = Save Commondialog1.Action = 1 End Sub4.在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text = Text1.SetfocusEnd SubPrivate Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 程序设计End SubPrivate Sub Text1_Keydow
7、n(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 =Commondialog1.Filter=All File|*.*|(*.Doc)
8、|*.Doc|(*.Txt)|*.TxtCommondialog1.Filterindex=2Commondialog1.Dialogtitle=VbtestCommondialog1.Action=1End Sub对于这个程序，以下叙述中错误的是A） 该对话框被设置为“打开”对话框B） 在该对话框中指定的默认文件名为空C） 该对话框的标题为VbtestD） 在该对话框中指定的默认文件类型为文本文件(*.Txt)6.把窗体的Keypreview属性设置为True，然后编写如下两个事件过程：Private Sub Form_Keydown(Keycode As Integer, Shift As
9、 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 属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，
10、并在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.Caption = 输入项已在组合框中Exit SubEnd IfNext ILabel2.Caption = 已成功添加输入项Comb
11、o1. 【AddItem】 Combo1.TextEnd IfEnd Sub8. 设有语句X=Inputbox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A) 变量X的值是数值10 B) 在Inputbox对话框标题栏中显示的是“示例”C) 0是默认值 D) 变量X的值是字符串“10”9. 从键盘上输入两个字符串，分别保存在变量Str1、Str2中。确定第二个字符串在第一个字符串中起始位置的函数是A) Left B) Mid C) String D) Instr10.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如
12、下事件过程：Private Sub Command1_Click()A$ = Software And HardwareB$ = 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 = Inputbox(Today, Tomorrow, Yesterday, , , Day Before Yesterday, 5)将显示一个输入对话框，在对话框的输入区中显示的信息是A）Tod
13、ay B）Tomorrow C）Yesterday D）Day Before Yesterday12.以下叙述中错误的是A）用Shell函数可以调用能够在Windows下运行的应用程序B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数C）调用Shell函数的格式应为：=Shell ()D）用Shell函数不能执行DOS命令13.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在
14、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 While C = A If Instr(Str, C) = 0 Then S = 【7】 S&C End If C = Chr$(Asc(C) 【8】 -1 ) Wend If S Then Text1 = S End IfEnd Sub14.在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示已成功添加输入项
