在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝0Do While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋1LoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。

试卷相关题目

• 1窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：Private Sub Co mmand1＿Click（）Di mi As Integer ，j As Integer ，k As IntegerDi ms As Doubles ＝0：i ＝1：j＝0：k ＝－1Do While i ＜6s ＝s ＋k＊（j／i）i ＝i ＋1j＝j＋1k ＝－kLoopPrint sEnd Sub以上程序所计算的表达式是（　　）。

  A.1／2－2／3＋3／4－4／5

  B.－1／2＋2／3－3／4＋4／5

  C.1－1／2＋2／3－3／4＋4／5

  D.－1＋1／2－2／3＋3／4－4／5

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

  A.在通用过程中，多个形式参数之间可以用逗号作为分隔符

  B.在Print 方法中，多个输出项之间可以用逗号作为分隔符

  C.在Di m 语句中，所定义的多个变量可以用逗号作为分隔符

  D.当一行中有多个语句时，可以用逗号作为分隔符

  开始考试点击查看答案
• 3设有变量声明为"Di m aDate As Date"，则为变量aDate 正确赋值的表达方式是（　　）。

  A.aDate ＝＃8／2008＃

  B.aDate ＝＃＂8／8／2008＂＃

  C.aDate ＝Date（＂8／8／2008＂）

  D.aDate ＝Format（＂m／d／yy＂，＂8／8／2008＂）

  开始考试点击查看答案
• 4执行下列程序段后，整型变量n 的值为（　　）。n ＝0For i ＝1To 20Step 5n ＝n ＋1Next i

  A.50

  B.4

  C.15

  D.210

  开始考试点击查看答案
• 5在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：Function Funl （ByVal a As Integer ，b As Integer）As IntegerDi mt As Integer t ＝a－bb ＝t ＋aFunl ＝t ＋bEnd FunctionPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝10Print Funl（Funl（x，（Funl（x，x－1））），x－1）End Sub程序运行后，单击命令按钮，输出结果是（　　）。

  A.10

  B.0C.11D.21

  开始考试点击查看答案
• 6某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：Private Sub Co mmand1＿Click（　　）Di ma（10）As Integer ，max As IntegerFor k ＝1TO 10a（K）＝InputBox（＂输入一个整数＂）Next kMax＝0For k ＝1To 10If a（k）＞max ThenMax＝a（k）End IfNext kPrint maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（　　）。

  A.把If a（k）＞max Then 改为If a（k）＜max Then

  B.把max＝a（k）改为a（k）＝max

  C.把第2个循环语句For k ＝1TO 10改为For k ＝2TO 10

  D.把max＝0改为max＝a（10）

  开始考试点击查看答案
• 7在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：Private Sub func（LAs Label）L .Caption ＝＂1234＂End SubPrivate Sub Form＿Load（）Label1．Caption ＝＂ABCDE＂Label2．Caption ＝10End SubPrivate Sub Co mmand1＿Click（）a＝Val（Label2．Caption）Call func（Label1）Label2．Caption ＝aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（　）。

  A.ABCD 和10

  B.1234和100

  C.ABCD 和100

  D.1234和10

  开始考试点击查看答案
• 8要在命令按钮控件上显示图像应（　　）。

  A.设置Picture 属性

  B.实现不了

  C.先将Style 设置为1，然后再设置Picture 属性

  D.以上都不对

  开始考试点击查看答案
• 9窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：Private Sub Co mmand1＿Click（）CD1．File Name ＝＂＂CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂CD1．FilterIndex＝2CD1．Action ＝1End Sub关于以上代码，叙述错误的是（　　）。

  A.执行以上事件过程，通用对话框被设置为"打开"文件对话框

  B.通用对话框的初始路径为当前路径

  C.通用对话框的默认文件类型为＊．Txt

  D.以上代码不对文件执行读写操作

  开始考试点击查看答案
• 10可以产生30～50(含30和50)之间的随机整数的表达式是( )。

  A.Int(Rnd*21+30)

  B.Int(Rnd*20+30)

  C.Int(Rnd*50-Rnd*30)

  D.Int(RND*30+50)

  开始考试点击查看答案