2011年3月全国计算机等级考试二级Visual Basic语言程序设计笔试(4)

End Function

运行程序，单击命令按钮Command1后的输出结果为【6_______】。 答案：【6】10

7. 在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer,x As Integer Dim flag As Boolean flag=False

n=Val(InputBox(\请输入任意1个正整数\Do While Not flag a=2

flag=【7_______】

Do While flag And a <=Int(Sqr(n)) If n/a=n＼a Then flag=False Else

【8_______】 End If Loop

If Not flag Then n=n+1 Loop

Print【9_______】 End Sub

上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。

答案：【7】True 【8】a=a+1【9】n 8. 以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer Randomize i=0 Do

num=Int(Rnd*90)+10

For j=1 To i’检查新产生的随机数是否与以前的相同，相同的无效 If num=a(j) Then Exit For End If Next j

If j>i Then i=i+1

a(i)=【10_______】 End If

Loop While i<10

For i=1 To 9

For j=【11_______】To 10

If a(i)>a(j) Then temp=a(i):a(i)=a(j):【12_______】 Next j Next i

For i=1 To 10 Print a(i) Next i End Sub

答案：【10】num【11】i+1【12】a(j)=temp

9. 窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框 ，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“.txt”的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。 Private Sub Form_Load() File1.Pattern=【13_______】 End Sub

Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub

Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub

Private Sub File1_DblClick() Dim s As String*1

If Right(File1.Path,1)=\＼\f_name=File1.Path+File1.FileName Else

f_name=File1.Path+\＼\End If

Open f_name【14_______】As #1 Text1.Text=\

Do While【15_______】 s=Input(1,#1)

Text1.Text=Text1.Text+s Loop Close #1 End Sub mp

答案：【13】*.txt【14】For Input【15】NOT EOF(1)