在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

试卷相关题目

• 1设a = 5，b = 10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为

  A.5～10

  B.6～9

  C.6～10

  D.5～9

  开始考试点击查看答案
• 2设a=2, b=3, c=4, d=5, 下列表达式的值是Not a<=c Or 4*c=b^2 And b<>a+c

  A.-1

  B.1

  C.True

  D.False

  开始考试点击查看答案
• 3以下叙述中错误的是

  A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

  B.当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

  C.Visual Basic应用程序只能以解释方式执行

  D.事件可以由用户引发，也可以由系统引发

  开始考试点击查看答案
• 4为了清除窗体上的一个控件，下列正确的操作是

  A.按回车键

  B.按Esc键

  C.选择（单击）要清除的控件，然后按Del键

  D.选择（单击）要清除的控件，然后按回车键

  开始考试点击查看答案
• 5假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是

  A.只保存窗体模块文件

  B.分别保存窗体模块、标准模块和工程文件

  C.只保存窗体模块和标准模块文件

  D.只保存工程文件

  开始考试点击查看答案
• 6在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

  A.108

  B.18

  C.810

  D.出错

  开始考试点击查看答案
• 7在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是

  A.BeijingChina

  B.China

  C.Beijing

  D.BeijingC

  开始考试点击查看答案
• 8在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem "Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序运行后，单击命令按钮，其结果为

  A.把字符串“AAAA”添加到列表框中，但位置不能确定

  B.把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）

  C.把列表框中原有的最后一项改为“AAAA”

  D.把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面）

  开始考试点击查看答案
• 9假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是

  A.81 4

  B.56 3

  C.28 1

  D.243 5

  开始考试点击查看答案
• 10有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为

  A.15 0

  B.20 -1

  C.10 True

  D.10 False

  开始考试点击查看答案