某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：Priv-最需题库

试卷相关题目

1在窗体上画两个文本框（其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程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。
A.1和0
B.2和72
C.3和50
D.4和168
开始考试点击查看答案
2窗体上有一个名称为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
开始考试点击查看答案
3下列叙述中错误的是（　　）。
A.在通用过程中，多个形式参数之间可以用逗号作为分隔符
B.在Print 方法中，多个输出项之间可以用逗号作为分隔符
C.在Di m 语句中，所定义的多个变量可以用逗号作为分隔符
D.当一行中有多个语句时，可以用逗号作为分隔符
开始考试点击查看答案
4设有变量声明为"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＂）
开始考试点击查看答案
5执行下列程序段后，整型变量n 的值为（　　）。n ＝0For i ＝1To 20Step 5n ＝n ＋1Next i
A.50
B.4
C.15
D.210
开始考试点击查看答案
6在窗体上画两个标签和一个命令按钮，其名称分别为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
开始考试点击查看答案
7要在命令按钮控件上显示图像应（　　）。
A.设置Picture 属性
B.实现不了
C.先将Style 设置为1，然后再设置Picture 属性
D.以上都不对
开始考试点击查看答案
8窗体上有一个名称为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.以上代码不对文件执行读写操作
开始考试点击查看答案
9可以产生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)
开始考试点击查看答案
10在窗体上建立通用对话框需要添加的控件是（　　）。
A.Data 控件
B.Fro m 控件
C.Co mmonDialog 控件
D.VBCo mboBox 控件
开始考试点击查看答案