VB二级错题总结

《VB二级错题总结》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.以下叙述中错误的是A)在Keyup和Keydown事件过程中，从键盘上输入A或A被视作相同的字母(即具有相同的Keycode)B)在Keyup和Keydown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的Keycode)C)Keypress事件中不能识别键盘上某个键的按下与释放D)Keypress事件中可以识别键盘上某个键的按下与释放2.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSu

2、bList1_Click()B）PrivateSubList1_Click()Label1.Caption=List1.ListindexLabel1.Name=List1.ListindexEndSubEndSubC）PrivateSubList1_Click()D）PrivateSubList1_Click()Label1.Name=List1.TextLabel1.Caption=List1.TextEndSubEndSub3.在窗体上画一个名称为Commondialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话

3、框。该窗口的标题为"Save"，缺省文件名为"Savefile"，在"文件类型"栏中显示*.Txt。则能够满足上述要求的程序是A）PrivateSubCommand1_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter="AllFiles

4、*.*

5、(*.Txt)

6、*.Txt

7、(*.Doc)

8、*.Doc"Commondialog1.Filterindex=2Commondialog1.Dialogtitle="Save"Commondialog1.Action=2EndSubB）PrivateSubComma

9、nd1_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter="AllFiles

10、*.*

11、(*.Txt)

12、*.Txt

13、(*.Doc)

14、*.Doc"Commondialog1.Filterindex=1Commondialog1.Dialogtitle="Save"Commondialog1.Action=2EndSubC）PrivateSubCommand1_Click()Commondialog1.Filename="Save"Commondialog1.Filter="AllFiles

15、*.*

16、(*.Tx

17、t)

18、*.Txt

19、(*.Doc)

20、*.Doc"Commondialog1.Filterindex=2Commondialog1.Dialogtitle="Savefile"Commondialog1.Action=2EndSubD）PrivateSubCommand1_Click()Commondialog1.Filename="Savefile"Commondialog1.Filter="AllFiles

21、*.*

22、(*.Txt)

23、*.Txt

24、(*.Doc)

25、*.Doc"Commondialog1.Filterindex=1Commondialog1.Dialogtitle=

26、"Save"Commondialog1.Action=1EndSub4.在窗体上画一个名称为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=""Text1.SetfocusEndSubPrivateSubForm_Mouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"程序设计"EndSubPrivateSubText1_Keydown(KeycodeAsInteger,ShiftAsInteger)Print"VisualBasic";End

27、Sub程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是A）VisualBasicB）程序设计C）A程序设计D）VisualBasic程序设计5.在窗体上画一个名称为Commanddialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()Commondialog1.Filename=""Commondialog1.Filter="AllFile

28、*.*

29、(*.Doc)

30、*.Doc

31、(*.Txt)

32、*.Txt"