VisualBasic程序设计试卷7.docVIP

QQ:401999419 全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷 Visual Basic 语 言 程 序 设 计 常 用 标 准 控 件 填空题专项练习（每空2分，共100分） 以下程序的功能是：单全选按钮后，将左边文本框的内容全部选中；单击替换铵钮后，将左边文本框中选中的内容用右边文本框的内容来替代。 Private Sub Command1_Click() Text1.SetFocus Text1. 【 1 】 = 0 Text1.SelLength = 【 2 】 End Sub Private Sub Command2_Click() Text1. 【 3 】 = Text2.Text End Sub 以下程序的功能是：在文本框Text1中输入小写字母，在文本框Text2中同步显示大写字母 Private Sub Text1_ 【 4 】 ( ) Text2.Text = 【 5 】 End Sub 将焦点停在文本框Text1中的语句为 【 6 】 以下程序的功能是：在文本框Text1中输入口令，口令以星号显示，单击登陆铵钮Command1，如果口令正确，则显示“合法用户”；如果口令不正确，自动清除文本框中的内容，光标停在文本框中，等待重新输入，如果三次输入口令不正确，则退出程序。 Private Sub Command1_Click() Static n As Integer If Text1.Text abc Then 【 7 】 If n = 3 Then 【 8 】 Text1.Text = Text1.SetFocus Else MsgBox 合法用户 End If End Sub 如图所示界面，窗体含有一个文本框Text1，两个复选框Check1和Check2，两个单选按钮Option1和Option2，根据要求将程序补充完整。 （1）单击复选框粗体，文本框中的文字变成粗体效果 Private Sub Check1_Click() Text1. 【 9 】 = Not Text1.FontBold End Sub （2）单击单选钮10号，文本框中的文字大小被设置为10号 Private Sub Option1_Click() Text1. 【 10 】 = 10 End Sub 如果双击列表框中某个列表项后，再把该列表项添加到列表框末尾，使用的语句如下： List1.AddItem 【 11 】 如果双击列表框中某个列表项后，则删除该列表项，使用的语句如下： List1.RemoveItem 【 12 】 删除列表框List1中所有的列表项，使用的语句为： 【 13 】 以下程序段的功能是：将列表框中所有列表项在窗体上打印出来 For i = 0 To 【 14 】 Print 【 15 】 Next 以下程序段的功能是：将列表框中所有列表项在窗体上打印出来 For i = 0 To List1.ListCount - 1 If 【 16 】 = True Then Print List1.List(i) Next 以下程序的功能是：在组合框中输入城市名称后按回车，如果该名称已存在，则不允许加入；如果不存在，则作为一个列表项加入到组合框中 Private Sub Combo1_ 【 17 】 (KeyAscii As Integer) If KeyAscii = 13 Then For i = 0 To Combo1.ListCount - 1 If Combo1.Text = 【 18 】 Then MsgBox 该列表项已存在 【 19 】 End If Next If i = 【 20 】 Then Combo1.AddItem Combo1.Text End If End Sub 以下程序段的功能是：有两个列表框List1和List2，如果双击List1中的某个列表项，把该列表项移到List2中 Private Sub List1_DblClick() 【 21 】 List1.Text 【 22 】 List1.ListIndex End Sub 以下程序段的功能是：通过组合框设置文本框中的字体大小。在组合框中添加三个列表项为：10 Private Sub Combo1_Click()