在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：Option Base 0Private Sub Co mmand1＿Click（）Di m A1（4）As Integer ，A2（4）As IntegerFor k ＝0To 2A1（k ＋1）＝InputBox（＂请输入一个整数＂）A2（3－k）＝A1（k ＋1）Next k Print A2（k）End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　　）。

试卷相关题目

• 1编写如下两个事件过程：Private Sub Form＿KeyDown （KeyCode As Integer，Shift As Integer）Print Chr（KeyCode）End SubPrivate Sub Form＿KeyPress（KeyAscii As Integer）Print Chr（KeyAscii）End Sub在一般情况下（即不按住Shift 键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（　　）。

  A.Aa

  B.aA

  C.AA

  D.aa

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

  A.在窗体的Form＿Load 事件过程中定义的变量是全局变量

  B.局部变量的作用域可以超出所定义的过程

  C.在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

  D.在调用过程时，所有局部变量被系统初始化为0或空字符串

  开始考试点击查看答案
• 3下列关于Sub 过程的叙述正确的是（　　）。

  A.一个Sub 过程必须有一个Exit Sub 语句

  B.一个Sub 过程必须有一个End Sub 语句

  C.在Sub 过程中可以定义一个Function 过程

  D.可以用Goto 语句退出Sub 过程

  开始考试点击查看答案
• 4在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出（　　）。For i ＝1To 4For j＝1To 3x＝3For k ＝1To 2x＝x＋3Next kNext jNext iTextl ．Text ＝Str（x）

  A.3

  B.6

  C.9

  D.12

  开始考试点击查看答案
• 5复选框的Value 属性为0时，表示该复选框（　　）。

  A.未被选中

  B.被选中

  C.框内有灰色的勾

  D.操作有误

  开始考试点击查看答案
• 6下面语句正确的是（　　）。

  A.If x＜3＊y And x＞y Then y ＝x＾3

  B.If x＜3＊y And x＞y Then y ＝3x

  C.If x＜3＊y ：x＞y Then y ＝x＾3

  D.If x＜3＊y And x＞y Then y ＝x＊＊3

  开始考试点击查看答案
• 7下面程序的输出结果是（　　）。Private Sub Co mmand1＿Click（）Ch$＝＂ABCDEF＂proc ch ：Print chEnd SubPrivate Sub proc（ch As Stri ng）s ＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub

  A.ABCDEF

  B.FEDCBA

  C.A

  D.F

  开始考试点击查看答案
• 8语句Di ma（－3To 4，3To 6）As Integer 定义的数组元素个数是（　　）。

  A.18

  B.28

  C.21

  D.32

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

  A.一个工程中只能有一个Sub Main 过程

  B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体

  C.窗体的Hide 方法和Unload 方法的作用完全相同

  D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

  开始考试点击查看答案
• 10用Print 方法在Forml 窗体中显示出4个＃号的正确代码为（　　）。

  A.Debug ．Print＂＃＃＃＃＂

  B.Print＂＃＃＃＃＂

  C.Forml-Print＂＃＃＃＃＂

  D.Forml ．Print＂＃＃＃＃＂

  开始考试点击查看答案