全国计算机等级考试二级VB上机题库题型总结教学内容

End Sub

图1-298

n = Val(Opt1(k).Caption) For k = 1 To m

c = Mid$(Txt1.Text, k, 1) a = a + c

三、综合应用题

在考生文件夹中有一个工程文件vbsj5.vbp及窗体文件vbsj5.frm。在名为Form1的窗体中已经给出了所有控件。

编写适当的事件过程完成以下功能：单击\读入\按钮，则把考生目录下的dr591.dat文件中的一个整数放入Txt1中；单击\计算\按钮，则计算出大于该数的第1个素数，并显示在Txt2中，如图1-299所示；单击\保存\按钮，则把要找到的素数存到考生目录下的dw592.dat文件中。

注意：在结束程序运行之前，必须单击\保存\按钮，把结果存入dw592.dat，否则无成绩。最后把修改后的文件按原文件名保存。

程序源码：

Private Sub Cmd1_Click()

图1-299

Open App.Path & \ Input #1, a% Txt1.Text = a% Close #1 End Sub

Private Sub Cmd3_Click()

Open App.Path & \ Print #1, Txt2.Text Close #1 End Sub 参考代码：

Private Function isprime(m As Integer) As Boolean For i = 2 To m - 1 If m Mod i = 0 Then isprime = False

Exit Function End If Next

isprime = True End Function

Private Sub Cmd2_Click() Dim k As Integer k = Val(Txt1.Text) While Not isprime(k) k = k + 1 Wend

Txt2.Text = k End Sub

上机第60套题

一、基本操作题

（1）在名为Form1的窗体上绘制一个名为Pic1的图片框，其高为1500、宽为2000，并放入文件名为pic1.bmp的图片，如图1-300所示。请编写适当的事件过程，使得在运行时，若双击窗体，则图片框中的图片消失。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。

图1-300

参考代码：

Private Sub Form_DblClick() Pic1.Picture = LoadPicture() End Sub

整理人：飘墨