在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Di ma As Integer ，s As Integera＝8s ＝1Dos ＝s ＋aa＝a－1Loop While a ＜＝0Print s ；aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。

试卷相关题目

• 1一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（　　）。

  A.一对一

  B.一对多

  C.多对一

  D.多对多

  开始考试点击查看答案
• 2在通用对话框中打开"颜色对话框"的方法是（　　）。

  A.ShowOpen

  B.MenuIte m．Enabled ＝True

  C.MenuIte m．Visi ble ＝True

  D.MenuIte m．Visi ble ＝Flase

  开始考试点击查看答案
• 3可以作为其他控件容器的控件是（　　）。

  A.窗体控件，列表框控件，图像框控件

  B.窗体控件，文本框控件，框架控件

  C.窗体控件，框架控件，图片框控件

  D.窗体控件，标签控件，图片框控件

  开始考试点击查看答案
• 4可以实现从键盘输入一个作为双精度变量a的值的语句是( )。

  A.a=InputBox()

  B.a=InputBox("请输入一个值")

  C.a=Val(InputBox("请输入一个值"))

  D.a=Val(InputBox())

  开始考试点击查看答案
• 5在窗体上画一个命令按钮，其名称为Co mmand1，然后编写下列代码：Option Base 1Private Sub Co mmand1＿Click（）Di maa＝Array（1，2，3，4）j＝1For i ＝4To 1Step －1s ＝s ＋a（i）＊jj＝j＊10Next iPrint SEnd Sub程序运行后，单击命令按钮，其输出结果是（　　）。

  A.4321

  B.1234

  C.34

  D.12

  开始考试点击查看答案
• 6下列叙述中正确的是（　　）。

  A.在面向对象的程序设计中，各个对象之间具有密切的关系

  B.在面向对象的程序设计中，各个对象都是公用的

  C.在面向对象的程序设计中，各个对象之间相对独立，相互依赖性小

  D.上述3种说法都不对

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

  A.在KeyPress 事件过程中不能识别键盘的按下与释放

  B.在KeyPress 事件过程中不能识别回车键

  C.在KeyDown 和KeyUp 事件过程中，将键盘输入的"A"和"a"视作相同的字母

  D.在KeyDown 和KeyUp 事件过程中，从大键盘上输出的"1"和从右侧小键盘上输入的"1"被视作不同的字符

  开始考试点击查看答案
• 8单击按钮时，以下程序运行后的输出结果是（ ）。Private Sub proc1（x As Integer ，y As Integer ，z As Integer）x＝3＊zy ＝2＊zz ＝x＋yEnd SubPrivate Sub Co mmand1＿Click（）Di mx As Integer ，y As Integer ，z As Integerx＝1：y ＝2：z ＝3Call proc1（x，x，z）Print x；x；z Call proc1（x，y ，y）Print x；y ；yEnd Sub

  A.6 6 126 10 10

  B.9 5 105 10 10

  C.9 6 129 10 15

  D.9 10 105 4 10

  开始考试点击查看答案
• 9设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As Stri ng＊10TelNum As Stri ng＊20End Type在窗体上画一个名为Co mmand1的命令按钮，要求当执行事件过程Co mmand1Click 时，在顺序文件Person ．txt中写入一条Books 类型的记录。下列能够完成该操作的事件过程是（　）。

  A.Private Sub Co mmand1＿Click（）Di m BASBooksOpen ＂Person txt＂For Output As ＃1B .Name ＝InputBox （＂输入姓名＂）B .TelNum＝lnputBox （＂输入电话号码＂）Write ＃1BName ，BTelNumClose ＃1End Sub

  B.Private Sub Co mmand1＿Click（）Di m BAs BooksOpen ＂Person txt＂For Input As ＃1B .Name ＝InputBox（＂输入姓名＂）B .TelNum＝InputBox（＂输入电话号码＂）Print ＃1，B．Name ，B．TelNamClose ＃1End Sub

  C.Private Sub Co mmand1＿Click（）Di m BASBooksOpen ＂Person txt＂For Output As ＃1B .Name ＝InputBox（＂输入姓名＂）B .TelNum＝InputBox（＂输入电话号码＂）Write ＃1，BClose ＃1End Sub

  D.Private Sub Co mmand1＿Click（）Open ＂Person txt＂For Input As ＃1Name ＝lnputBox（＂输入姓名＂）TelNum＝lnputBox（＂输入电话号码＂）Pri m＃1Name TelNumClose ＃1End Sub

  开始考试点击查看答案
• 10在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Co mmand1，然后编写如下事件过程：Private Sub Form＿Load（）List1．AddIte m＂Ite m1＂List1．AddIte m＂Ite m2＂List1．AddIte m＂Ite m3＂End SubPrivate Sub Co mmand1＿Click（）List1．List（List1．ListCount）＝＂AAAA＂End Sub程序运行后，单击命令按钮，其结果为（ ）。

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

  B.把字符串＂AAAA＂添加到列表框的最后（即＂Ite m3＂的后面）

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

  D.把字符串＂AAAA＂插入到列表框的最前面（即＂Ite m1＂的前面）

  开始考试点击查看答案