《Visual Basic6.0》考试样卷
一、单项选择题(每题3分，共30分)
(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（ ）
A)Text1.MaxLength=0 B)Text1.Enabled=Flase
C)Text1.Visible=Flase D)Text1.Width=0
(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（ ）
A)Form1.Name="VisualBasic窗体" B)Form1.Title="VisualBasic窗体"
C)Form1.Caption="VisualBasic窗体" D)Form1.Text="VisualBasic窗体”
(3) 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（ ）
A)Timer1.Interval=0.5 B)Timer1.Interval=5 C)Timer.Interval=50 D)Timer1.Interval=500
(4) 以下关于文件的叙述中，错误的是（ ）
A)顺序文件中的记录一个接一个地顺序存放 B)随机文件中记录的长度是随机的
C)执行打开文件的命令后,自动生成一个文件指针 D)LOF函数返回给文件分配的字节数
(5) 以下叙述中错误的是（ ）
A)事件过程是响应特定事件的一段程序 B)不同的对象可以具有相同名称的方法
C)对象的方法是执行指定操作的过程 D)对象事件的名称可以由编程者指定
(6) 以下合法的Visual Basic标识符是（ ）
A)ForLoop B)Const C)9abc D)a#x
(7) 当一个复选框被选中时，它的Value属性的值是（ ）
A)3 B)2 C)1 D)0
(8) 表达式 5 Mod 3+3\5*2的值是（ ）
A)0 B)2 C)4 D) 6
(9) 设x=4,y=8,z=7，以下表达式的值是：xz Or z（ ）
A)1 B)-1 C)True D)False
(10) 执行如下两条语句，窗体上显示的是：a=9.8596 Print Format(a,"$00,00.00")（ ）
A)0,009.86 B)$9.86 C)9.86 D)$0,009.86
二、填空题(每空6分，共42分)
请将每空的正确答案写在答题卡【1】～【7】序号的横线上，答在试卷上不得分。
(1) 设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为【1】 。
(2) 以下程序段的输出结果是【2】 。
num =0
While num<=2
num = num + 1
Wend
Print num
(3) 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，以下是实现上述功能的程序，请填空。
Private Sub Form_Load()
For i=1 To 100
If i Mod 7 =0 Then
【3】
End If
Next
End Sub
Private Sub Command1_Click()
Sum = 0
For i = 0 To 【4】
Sum = Sum + 【5】
Next
Text1.Text = Sum
End Sub
(6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum + 【6】
Next
【7】 = Sum
End Sub
三、编程题（28分）
编程求解100以内的所有素数，每5个一行在窗体上输出。
要求编写一个判断一个整数是否为素数的函数过程Prime。 |
