上机考试不用愁,2012年全国计算机二级VB上机考试题库及答案word

第一、Const y0& = 1110, x0& = 1100, radius& = 750

Private Function oncircle(X As Single, Y As Single) As Boolean

precision = 55000

If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then

oncircle = True

Else

oncircle = False

End If

End Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

Single)

Const LEFT_BUTTON = 1

If oncircle(X, Y) Then

Line1.X1 = x0

Line1.Y1 = y0

If Button = LEFT_BUTTON Then

Line1.X2 = X

' Line1.Y2 = ? ***** Y *****

Else

' Line1.X2 = Line1.? ***** X1 *****

' Line1.Y2 = y0 - ? ***** radius *****

End If

Label1.Caption = ""

Else

' ? = "鼠标位置不对" ***** label1.caption *****

End If

End Sub

（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click 事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。

Dim n As Integer

Private Sub Command1_Click()

n = Val(InputBox("请输入整数（8-12）", "输入"))

' If n > ? Or n < 8 Then ***** 12 *****

MsgBox ("数据错误，请重新输入")

Command2.Enabled = False

Command3.Enabled = False

Else

Command2.Enabled = True

Command3.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Dim s As Long, k As Integer

*****'考生应编写的程序*****

S=1

For k=2 to n

S=s+f(k)

Next k

Text1.text=s

*****End Sub*****

Function f(n As Integer) As Long

' s = ? ***** 1 *****

For k = 2 To n

s = s * k

Next

' f = ? ***** s *****

End Function

Private Sub Command3_Click()

Open App.Path & "\out4.dat" For Output As #1

Print #1, n, Text1

Close #1

End Sub

第01套综合应用题（新模14）

在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为‘启动’、‘注册’、‘登录’，运行时显示‘启动’窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且‘口令’与‘验证口令’须相同，注册成功则在‘启动’窗体的标签中显示‘注册成功’，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在‘启动’窗体的标签上显示‘登录成功’，否则显示相应错误信息。

标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在user中的位置，否则返回0。

已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。―――――――――Form2―――――――――――――――――――――――――

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

Sub writeusers()

' n = n + ? ***** 1 *****

users(n, 1) = Text1

users(n, 2) = Text2

End Sub

Private Sub Command2_Click()

If Text1 = "" Then

MsgBox ("必须输入用户名！")

Text1.SetFocus

' ElseIf finduser(Trim$(Text1)) > ? Then ***** 0 *****

MsgBox ("此用户名已经存在!")

ElseIf Text2 <> Text3 Then

MsgBox ("口令验证错误!")

Else

writeusers

' ? = "注册成功！" ***** f9ff7cabb0717fd5360cdc09bel1.caption *****

Form2.Hide

End If

End Sub

―――――――――Form3―――――――――――――――――――――――――

Private Sub Command1_Click()

k = finduser(Trim$(Text1))

' If k = ? Then ***** 0 *****

MsgBox ("没有注册！")

' ElseIf Trim$(Text2) <> users( ? ) Then ***** n,2 *****

MsgBox ("口令错误！")

Else

f9ff7cabb0717fd5360cdc09bel1.Caption = "登录成功！"

Form3.Hide

End If

End Sub

第02套简单应用题（新模8）

（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

M1_click( )

Text1.fontBold=true

M2_click( )

Text1.fontItalic=true

M3_click( )

Text1.fontUnderline=true

Text1_MouseDown( )

If button=2 then Popupmenu format

（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；

2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）；

3）去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。

Private Sub C1_Click()

Dim k As Integer

' Form2. ? ***** show *****

Form2.Print Form1.L1.Caption; Form1.Text1

Form2.Print Form1.L2.Caption; Form1.Text2

Form2.Print Form1.L3.Caption; Form1.Text3

' Form2.Print Form1.Frame1. ? ; "："; *****caption*****

For k = 0 To 1

' If Form1.Op1( ? ).Value Then ***** k *****

Form2.Print Form1.Op1(k).Caption

End If

Next k

End Sub

Private Sub Form_Load()

' Text2. ? = "*" ***** passwordchar *****

End Sub

第02套综合应用题（新模8）

在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为‘口令’和‘允许次数’；一个命令按钮C1，标题为‘确定’；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示‘*’），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击‘确定’，如果输入的是‘123456’则在Text1中显示‘口令正确’；如果输入其他内容，单击‘确定’后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次

输入。

Private Sub C1_Click()

' If ? = "123456" Then ***** text1.text *****

Text1.Text = "口令正确"

' Text1.? = "" ***** passwordchar *****

Else

Text2.Text = Text2.Text - 1

' If Text2.Text > ? Then ***** 0 *****

MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"

Else

MsgBox "3次输入错误，请退出"

' Text1.Enabled = ? ***** false *****

End If

End If

End Sub

第03套简单应用题（新模18）

（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

1）单击‘读数据’按钮，则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中；

2）单击‘计算’按钮，则对这100个整数中的所有水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如：153＝1^3+5^3+3^3，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框Text1中。窗体中给出了所有控件（如图所示），以及‘读数据’按钮的Click事件过程，请为‘计算’按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Dim a(100) As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in3.dat" For Input As #1

For k = 1 To 100

Input #1, a(k)

Next k

Close #1

End Sub

Private Sub Command2_Click()

'*****考生应完成的程序*****

Dim k ,c1, c2, c3, avg, num as integer

Avg=0

Num=0

For k=1 to 100

C1=int(a(k)/100)

C2=int((a(k)-c1*100)/10)

C3=a(k) mod 10

If a(k)=c1^3+c2^3+c3^3 then

Avg=avg+a(k)

End if

Next k

Avg=int(avg / num)

Text1.text=avg

***** End Sub *****

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out3.dat" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

（2）已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击‘输入’按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击‘计算’按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

Dim s As Integer

Private Sub Command1_Click()

s = Val(InputBox("输入里程数（单位：公里）"))

End Sub

Private Sub Command2_Click()

If s > 0 Then

'Select Case ? ***** s *****

Case Is <= 4

'? ***** f=10 *****

Case Is <= 15

'f = 10 + ? ***** (s-4)*1.2 *****

'Case ?

'f = 10 + ? + (s - 15) * 1.8 ***** 13.2 *****

End Select

Text1.Text = f

Else

MsgBox "请单击“输入”按钮输入里程数！"

End If

End Sub

第03套综合应用题（新模18）

在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画二个名称分别为Text1和Text2，初始值为空的文本框，如图所示。程序功能如下：

1）单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中（此过程已给出）；

2）单击“统计”按钮，则自动统计in5.dat文件中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框，它所出现的次数显示在Text2文本框内。

“读数据”按钮的Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Option Base 1

Dim s As String

Private Sub Command1_Click()

Open App.Path & "\in5.dat" For Input As #1

s = Input(LOF(1), #1)

Close #1

End Sub

Private Sub Command2_Click()

' ***** 考生编写的程序*****

Dim n(26) ,i, k as integer

For i=1 to 26

n(i)=0

Next i

For i=1 to len(s)

K=asc(lcase(mid(s,i,1)))-asc(“a”)+1

If k>0 and k<=26 then

\ n(k)=n(k)+1

End if

Next i

K=1

For i=2 to 26

If n(i)>n(k) then

K=i

End if

Next i

Text1.text=chr((asc(“a”)+k-1)

Text2.text=n(k)

***** End Sub *****

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text1.Text, Text2.Text

Close #1

End Sub

第04套简单应用题（新模60）

（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

Private Sub C1_Click()

' For i = ? To ? ***** 0 to 2 *****

' If ? = True Then ***** op1(i).value *****

' Print "我是" + Op1(i).? ***** caption *****

End If

Next

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。窗体上有一个名称为command1的命令按钮和一个名称为Timer1的计时器。请在窗体上画一个标签（名称为Label1，标题为“请输入一个正整数”），再画一个文本框（名称为Text1，初始内容为空白）。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可以使文本框中的数字每隔0.3秒减1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确的运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

' If Val(?) = 0 Then ***** text1.text *****

Text1.Text = ""

' Timer1.? = False ***** enabled *****

' Text1.? ***** text=val(text1.text)-1 *****

Else

Text1.Text = Str(Val(Text1.Text) - 1)

End If

End Sub

第04套综合应用题（新模60）

在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：Name 字符串8

Tel 字符串10

Post Long

窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮，则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编、见图，可使用符号常量vbCrLf表示回车换行）；若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。

要求：1）编写“读入并显示记录”按钮的Click过程。2）在文本框中把所有字母改为大写字母（可以手工修改）3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（过程已给出，不能修改）。最后以原文件名将程序存放在考生文件夹下。

Private Type PalInfo

Name As String * 8

Tel As String * 10

Post As Long

End Type

Dim pal As PalInfo

Private Sub Command2_Click()

ch$ = ""

For k = 1 To Len(Text1.Text)

C$ = Mid$(Text1.Text, k, 1)

If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then

ch$ = ch$ + C$

End If

Next k

Open "out5.txt" For Output As #1

Print #1, ch$

Close #1

End Sub

Private Sub Command1_Click()

'***** 考生应编写的程序*****

Dim recordnum as integer

Open app.path & “\in5.txt” for random as #1 len=len(pal)

Recordnum=lof(1) / len(pal)

For i=1 to recordnum

Get #1,i,pal

Text1.text=text1.text+ucase(f9ff7cabb0717fd5360cdc09)+pal.tel+str(pal.post)+chr(13)+chr(10)

Next i

Close #1

***** End Sub *****

第05套综合应用题（新模69）

在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作。

在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三个数组中（即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、2、。。。。。、20），最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。

注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。

Option Base 1

Dim Arr1(20) As Integer

Dim Arr2(20) As Integer

Sub ReadData1()

Open App.Path & "\" & "datain1.txt" For Input As #1

For i = 1 To 20

Input #1, Arr1(i)

Next i

Close #1

End Sub

Sub ReadData2()

Open App.Path & "\" & "datain2.txt" For Input As #1

For i = 1 To 20

Input #1, Arr2(i)

Next i

Close #1

End Sub

Sub WriteData(Filename As String, Num As Integer)

Open App.Path & "\" & Filename For Output As #1

Print #1, Num

Close #1

End Sub

***********以下为考生编写的程序***********

Private sub C1_Click( )

Call ReadData1

Call ReadData2

End sub

…定义一个声明语句：Dim Sum As integer

Private sub c2_click( )

Dim arr3(20) as integer

For i=1 to 20

Arr3(i)=int(arr1(i) / arr2(i))

Sum=Sum+arr3(i)

Next i

Num=0

Print Sum

End sub

Private sub C3_click( )

Call writeData(“dataout.txt” , sum)

***** End sub *****

第06套简单应用题（新模32）

（1）在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置，如图所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。

Private sub command1_click( )

…***** 考生编写的程序如下：*****

If Op1.value = true then

Text1.fontname=Op1.caption

Elseif op2.value=true then

Text1.fontname=Op2.caption

End if

If ch1.value=1 then

Text1.fontunderline=true

Else

Text1.fontunderline=true

End if

If ch2.value=1 then

Text1.fontItalic=true

Else

Text1.fontitalic=false

End if

***** End sub *****

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件，如图所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每0.1秒向右移动一次（初始状态下不移动）；如果单击“停止”按钮，则停止移动。请完成以下工作：A．设置适当控件的适当属性，使得汽车图标每0.1秒向右移动一次，而初始状态下不移动；

B．请去掉程序中的注释符，把程序中的？改为正确的内容；

C．为两个命令按钮编写适当的事件过程。最后以原文件名存盘。

注意：不得修改已经给出的程序。编写的事件过程中不能使用变量，每个事件过程中只能有一条语句。

Private Sub C1_Click()

…***** 考生编写的程序如下：*****

Timer1.enabled=true

End Sub

Private Sub C2_Click()

…***** 考生编写的程序如下：*****

Timer1.enabled=false

End Sub

Private Sub Timer1_Timer()

' P1.? P1.Left + 20 …****** Move *******

End Sub

第06套综合应用题（新模32）

在考生文件夹有一个工程文件sjt5.vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的？改为正确的内容。本程序的功能是：

如果单击“取数”按钮，则把考生目录下的in5.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中；（如图所示）若未找到，则在Text2中显示“未找到！”；若Text1中没有查找的内容，则在Text2中显示“未输入查找内容！”。

注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。

Dim a(15) As String

Private Sub C1_Click()

Dim k As Integer

Open "in5.txt" For Input As #1

Form1.Cls

For k = 1 To 15

Input #1, a(k)

Print a(k)

Next k

' Close ? ******** #1 *********

End Sub

Private Sub C2_Click()

Dim k As Integer, n As Integer, c As String

' n = Len( ? ) ******** Text1.Text ********

c = ""

If n > 0 Then

For k = 1 To 15

' If Left(a(k), ? ) = Text1.Text Then ********* n *********

' c = c + " " + ? ********* a(k) ********

End If

Next k

If c = "" Then

Text2.Text = "未找到！"

Else

' Text2.Text = ? ******** c ********

End If

Else

Text2.Text = "未输入查找内容！"

End If

End Sub

第07套综合应用题（新模70）

在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作。

在名称为Form1的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相除并截尾取整后，结果放入第三个数组中（即：把第一个数组的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素。这里的n为1、

2、。。。。。、20），最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。

注意：考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘”按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。

' 提供给考生的程序

Option Base 1

Dim Arr1(20) As Integer

Dim Arr2(20) As Integer

Sub ReadData1()

Open App.Path & "\" & "datain1.txt" For Input As #1

For i = 1 To 20

Input #1, Arr1(i)

Next i

Close #1

End Sub

Sub ReadData2()

Open App.Path & "\" & "datain2.txt" For Input As #1

For i = 1 To 20

Input #1, Arr2(i)

Next i

Close #1

End Sub

Sub WriteData(Filename As String, Num As Integer)

Open App.Path & "\" & Filename For Output As #1

Print #1, Num

Close #1

End Sub

…***** 考生编写的程序如下：*****

Private Sub C1_Click()

Call readdata1

Call readdata2

End Sub

…定义一个声明语句：dim num as integer

Private Sub C2_Click()

Dim arr3(20) as integer

For i=1 to 20

Arr3(i)=arr1(i) \ arr2(i)

Next i

Num=0

For i=1 to 20

Num=num+arr3(i)

Next i

Print num

End Sub

Private Sub C3_Click()

Call writedata(“dataout.txt” , num )

***** End Sub *****

第08套简单应用题（新模77）

（1）在考生文件夹下有一个工程文件sjt3.vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作：1）单击“读入数据”按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中。

2）从名称为List1的列表框中选中一项（如图所示）。

3）单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。

4）单击窗体右上角的关闭按钮结束程序。

“读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。

Dim a(100) As Integer

Private Sub Command1_Click()

Dim k As Integer

Open "in3.dat" For Input As #1

For k = 1 To 100

Input #1, a(k)

Next k

Close #1

End Sub

Private Sub Command2_Click()

…***** 考生应完成的程序*****

Intmax=a(1)

Intmin=a(1)

For i=1 to 100

If intmax<=a(i) then

Intmax=a(i)

End if

If intmin>=a(i) then

Intmin=a(i)

End if

Next i

If list1.listindex=0 then

Text1.text=intmax – intmin

Elseif list1.listindex=1 then

Text1.text=intmax+intmin

Elseif list1.listindex=2 then

Text1.text=intmax * intmin

End if

***** End sub *****

Private Sub Form_Unload(Cancel As Integer)

Open "out3.dat" For Output As #1

Print #1, List1.ListIndex, Text1.Text

Close #1

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中的横线（横坐标）的名称为Line1，竖线（纵坐标）的名称为Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape1，它们的Visible属性都为False；从左到右的两个按钮的名称分别为Command1、Command2；另有一个有五个元素的标签数组，名称为Label1，其所有元素的Visible属性都为False。如图1所示。程序运行时，单击“输入5个数据”按钮，可输入五个整数（最好在100~2000之间），并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是1200、500、800、1900、1500，则结果如图2所示。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序的其他部分和各控件属性。最后把

修改后的文件按原文件名存盘。

Dim s(5) As Integer

Private Sub Command1_Click()

' For k = ? To 5 ******** 1 *********

s(k) = Val(InputBox("input"))

Label1(k - 1).Caption = s(k)

Label1(k - 1).Move Line2.X1 - Label1(k - 1).Width, Line1.Y1 - s(k)

' Label1(k - 1).Visible = ? ******** true *********

Next k

End Sub

Private Sub Command2_Click()

Dim a As Integer

For k = 1 To 5

' Shape1(k - 1).Height = s( ? ) ********* k *********

' ? = Line1.Y1 ********* a *********

Shape1(k - 1).Top = a - Shape1(k - 1).Height

Shape1(k - 1).Visible = True

Next k

End Sub

第08套综合应用题（新模77）

在考生文件夹下有一个工程文件sjt5.vbp，已给出了所有控件（如图所示）和部件程序。程序运行时，请按以下顺序操作：

1）单击“读入文件”按钮，把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框（Text1）中；

2）单击“加密”按钮，则可对Text1中的内容进行加密并显示在下面的文本框（Text2）中。

3）单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。

加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符（若为‘Z’则变为‘A’），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为‘A’则变为‘Z’），不是字母则不变。大小写字母都遵循规则。

例如：若原有的字符是：AbbaZG Ha-MnnK Yzx 则加密后的字符是，BaczAF Gb-Nmoj Xaw

已经给出“存结果”按钮的Click事件过程和函数isletter，函数isletter(a as string) 判断变量a中是否为一个字母，是则返回True，否则返回False，可以直接调用。请编写“读入文件”按钮和“加密”按钮的Click事件过程，以实现上述功能。（in5.dat文件中只含英文单词和空格，不分段落和行）

注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。

Dim s As String

Private Sub Command1_Click()

'***** 考生应完成的程序*****

Open “in5.dat” for input as #1

Input #1, s

Close #1

Text1.text=s

***** End sub *****

Private Sub Command2_Click()

'***** 考生应完成的程序*****

Stetemp2=””

For i=1 to len(s)

Ch=mid(s,i,1)

If i mod 2 <>0 then

If isletter(cstr(ch))=true then

If ch=”Z” then

Ch=”A”

Elseif ch=”z” then

Ch=”a”

Else

Ch=chr(asc(ch)+1)

End if

End if

Else

If isletter(cstr(ch))=true then

If ch=”A” then

Ch=”Z”

Elseif ch=”a” then

Ch=”z”

Else

Ch=chr(asc(ch)-1)

End if

End if

End if

Strtemp2=strtemp2+ch

Next i

Text2.text=strtemp2

***** End Sub *****

Function isletter(a As String) As Boolean

If "A" <= a And a <= "Z" Or "a" <= a And a <= "z" Then

isletter = True

Else

isletter = False

End If

End Function

Private Sub Command3_Click()

Open "out5.dat" For Output As #1

Print #1, Text2.Text

Close #1

End Sub

第09套简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，它包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。请先把Form1上按钮的标题改为“结束”，把Form2上按钮的标题改为“显示”，并将Form2设为启动窗体，将Form1设为不显示。

该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的“显示”按钮，则显示Form1窗体；若单击Form1上的“结束”按钮，则关闭Form1和Form2，并结束程序运行。

请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。正确程序运行后的界面如图所示。

Private Sub C2_Click()

' Load ? ***** form1 *****

' ? = True ***** form1.visible *****

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有一个名为P1的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆形”；还有一个标题为“显示”的命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆”或“选择了圆形”，如图所示。

要求：1）原题中的单选按钮和命令按钮没有标题，请利用属性窗口依次添加单选按钮标题分别为“正方形”、“椭圆形”、“圆形”，添加命令按钮标题为“显示”。

2）去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能。

注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的程序

以原文件名存盘。

Private Sub C1_Click()

Dim k As Integer

For k = 0 To 2

' If Op1(k).? = True Then ***** value *****

' Call draw(?) ***** k *****

End If

Next k

End Sub

Sub draw(a As Integer)

' P1.Print "选择了" & Op1(?).Caption ***** a *****

End Sub

第09套综合应用题

在窗体上画1个文本框，名称为Text1（可显示多行），然后再画三个命令按钮，名称分别为Command1，Command2和Command3，标题分别为“读数”，“统计”和“存盘”，如图所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5.txt文件中的所有英文字符放入Text1（可多行显示）；单击“统计”按钮，找出并统计英文字母I，j，k，l，m，n（不区分大小写）各自出现的次数；单击“存盘”按钮，将字母I到n出现次数的统计结果依次存到考生目录下的顺序文件out5.txt中。

***** 请考生编写程序*****

Private sub command1_click( )

Open “in5.txt” for input as #1

Line input #1,str_temp

Close #1

For i=1 to len(str_temp)

Ch=mid(str_temp , i , 1)

If asc(ch)>=97 and asc(ch)<=122 or asc(ch)>=65 and asc(ch)<=90 then

Strch=strch+ch

End if

Next i

Text1.text=strch

End sub

Private sub command2_click( )

Strch=text1.text

intI=0

intJ=0

intK=0

intL=0

intM=0

intN=0

for i=1 to len(strch)

ch=mid(strch ,i , 1)

if ch=”I” or ch=”i” then

intI=intI+1

elseif ch=”J” or ch=”j” then

intJ=intJ+1

elseif ch=”K” or ch=”k” then

intK=intK+1

elseif ch=”L” or ch=”l” then

intL=intL+1

elseif ch=”M” or ch=”m” then

intM=intM+1

elseif ch=”N” or ch=”n” then

intN=intN+1

end if

next i

End sub

Private sub command3_click( )

Open “out5.txt” for output as #1

Print #1,intI; intJ; intK; intL; intM; intN

Close #1

***** End sub *****

第10套简单应用题（新模76）

（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线（如图所示）；若鼠标单击在直线之外，则不画正弦曲线。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。文件中的drawsin过程的作用是画一条正弦曲线，可以直接调用。

注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

Sub drawsin(X, Y)

Dim y1 As Integer, x1 As Integer

For x1 = X To X + 1000 Step 5

y1 = Y - Int(300 * Sin((x1 - X) * 3.14 / 500))

Circle (x1, y1), 8

Next x1

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim k As Integer

' For k = ? To 2 ***** 0 *****

' If Y = Line1(k). ? Then ***** y1 *****

' Call drawsin(?, Y) ***** x *****

End If

Next k

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容（如图所示），Text1用来输入要查找的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击“替换”按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为“第1个”和“全部”。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串，若Option2被选中，则替换Text3中所有匹配的字串。

在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。

不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim k As Integer, m As Integer

m = Len(Text1.Text)

' k = ? ***** 1 *****

Do

a = InStr(k, Text3.Text, Text1.Text)

If a > 0 Then

Text3.SelStart = a - 1

' Text3.SelLength = Len( ? ) ***** text2.text *****

' Text3.SelText = ? .Text ***** text2.text *****

If Option1.Value = True Then

Exit Do

End If

k = a + m

End If

Loop Until a = 0

End Sub

第10套综合应用题（新模76）

在考生目录下有一个工程文件sjt5.vbp，其功能是：单击“读数据”按钮，则把考生目录下的文件in5.dat中的100个整数读到数组a中；单击“计算”按钮，则找出其中与所有数的平均值（平均值截尾取整）最接近的整数，放到文本框中；单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件（如图所示）和“读数据”按钮及“存盘”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。

注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。提示：与平均值最接近的数可能大于也可能小于平均值。

Private Sub Command1_Click()

Dim i As Integer

Open "in5.dat" For Input As #1

For i = 1 To 100

Input #1, a(i)

Next i

Close #1

End Sub

Private Sub Command2_Click()

' ***** 考生完成*****

Sum=0

For i=1 to 100

Sum=sum+a(i)

Next i

Sum=int(sum / 100)

Min=1000

Temp=0

For i=1 to 100

If abs(sum-a(i))<=min then

Temp=a(i)

Min=abs(sum-a(i))

End if

Next i

Text1.text=temp

***** End Sub *****

Private Sub Command3_Click()

Open "out5.dat" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

第11套简单应用题（新模75）

（1）在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1和两个命令按钮，命令按钮的标题分别是“读文件”、“计算”，名称分别是Command1、Command2。请画出三个单选按钮，名称分别为Option1、Option2、Option3，标题分别为“大小写字母数之差”（即大写字母数减小写字母数）、“大小写字母数之和”、“大小写字母数乘积”；窗体如图所示。

程序运行时，请按以下顺序操作：

1）单击“读文件”按钮，可把考生目录下的文件in3.dat中的所有内容读到变量s中（此事件过程已经给出）；

2）选中一个单选按钮

3）单击“计算”按钮，则可按选中的单选按钮的标题要求对s中的字符进行计算，结果放到文本框中（要求考生编写程序）。

4）单击窗体右上角的关闭按钮结束程序。

“读文件”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。

Dim s As String

Private Sub Command1_Click()

Open "in3.dat" For Input As #1

s = Input$(LOF(1), #1)

Close #1

End Sub

Private Sub Command2_Click()

' ***** 考生应完成的程序*****

For i=1 to len(s)

Ch=mid(s , i , 1)

If ch>=”A” and ch<=”Z” then

a=a+1

elseif ch>=”a” and ch<=”z” then

b=b+1

End if

Next i

If option1.value=true then

Text1.text=abs(a-b)

Elseif option2.value=true then

Text1.text=a+b

Elseif option3.value=true then

Text1.text=a*b

End if

***** End Sub *****

Private Sub Form_Unload(Cancel As Integer)

Open "out3.dat" For Output As #1

Print #1, Option1.Value, Option2.Value, Option3.Value, Text1.Text

Close #1

End Sub

（2）在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个香蕉图案的图片框，名称为Picture2，如图1所示。

程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右部的香蕉放在左部的图片框中（右部的香蕉不动），如图2所示。左部的图片框最多可放六个香蕉。

实现此功能的方法是：刚运行程序时，图片框数组不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。

注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)

' For k = ? To 5 ***** 0 *****

' If Pic(k).Visible = ? Then ***** false *****

' Pic(k). ? = True ***** visible *****

Exit For

End If

Next k

End Sub

第11套综合应用题（新模75）

在考生文件夹下有一个工程文件sjt5.vbp，其中文本框Text1用于显示五个学生的六门课成绩；右边的五个文本框是一个数组，名称为Text2，用于显示每个学生的平均分；下方的六个文本框是一个数组，名称为Text3，用于显示每门课的平均分。

程序的功能是：单击“读入文件”按钮，则把考生文件夹下in5.dat中的姓名和成绩分别读到数组n和a中；单击“每人平均分”按钮，则计算每个学生的平均分，并显示在Text3数组中，所有平均分的值均四舍五入取整或截尾取整；单击“存结果”按钮，则把Text2，Text3中的所有平均分存入out5.dat文件中。

窗体中给出了所有控件（见图所示）和“读入文件”、“存结果”按钮的Click事件过程，请为“每人平均分”按钮和“每科平均分”按钮编写适当的事件过程，实现上述功能。

注意：不能修改已经存在的程序；在结束程序运行之前，必须用“存结果”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。

Dim a(5, 6) As Integer, n(5) As String

Private Sub Command1_Click( )

Open "in5.dat" For Input As #1

Text1 = ""

For i = 1 To 5

Input #1, n(i)

Text1 = Text1 + n(i)

For j = 1 To 6

Input #1, a(i, j)

Text1 = Text1 + " " + Str(a(i, j))

Next j

Text1 = Text1 + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10)

Next i

Close #1

End Sub

Private Sub Command2_Click( )

' ***** 考生编写*****

For i=1 to 5

Avg_temp=0

For j=1 to 6

Avg_temp=avg_temp+a(i,j)

Next j

Text2(i-1).text=int(avg_temp / 6)

Next i

***** End Sub *****

Private Sub Command3_Click()

' ***** 考生编写*****

For i=1 to 6

Avg_temp=0

For j=1 to 5

Avg_temp=avg_temp+a(j,i)

Next j

Text3(i-1).text=int(avg_temp / 5)

Next i

***** End Sub *****

Private Sub Command4_Click()

Open "out5.dat" For Output As #1

For k = 0 To 4

Print #1, Text2(k).Text

Next k

For k = 0 To 5

Print #1, Text3(k).Text

Next k

End Sub

第12套简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生20个0~1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮（名称为Command1，标题为“输出平均值”），即可求出其平均值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim arrN(20) As Integer

Dim Aver As Single

Dim Sum As Integer, i

Randomize

For i = 1 To 20

' arrN(i) = Int(Rnd * ?) ***** 1000 *****

Next i

' Sum = ? ***** 0 *****

For i = 1 To 20

' Sum = ? ***** sum+arrN(i) *****

Next i

' Aver = ? ***** sum / 20 *****

Print Aver

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0~200范围内能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。

要求：请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

Sub SaveData()

Open App.Path & "\" & "outtxt.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

***** Function Fun() *****

For i=0 to 200

If i mod 3=0 then

Fun=fun+i

End if

Next i

***** End Function *****

Private Sub Command1_Click()

d = Fun()

Text1.Text = d

SaveData

End Sub

第12套综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下：

32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37

程序运行后单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的？改为正确的内容（可以是多行），使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

Option Base 1

Private Sub Form_Click()

Const N = 5

Const M = 5

' Dim ? ***** mat(N,M) *****

Dim i, j, t

' Open App.Path & "\" & "datain.txt" ? As #1 ***** for input *****

For i = 1 To N

For j = 1 To M

' ? ***** input #1,mat(i,j) *****

Next j

Next i

Close #1

Print

Print "初始矩阵为："

Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j);

Next j

Print

Next i

For i = 1 To N

t = Mat(i, 2)

Mat(i, 2) = Mat(i, 4)

' ? ***** mat(i , 4)=t *****

Next i

Print

Print "交换第二列和第四列后的矩阵为："

Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j);

Next j

Print

Next i

End Sub

第13套简单应用题（新模65）

（1）在考生文件夹下有一个工程文件sjt3.vbp，其窗体上有一个名称为Text1的文本框；一个名称为L1的列表框；一个命令按钮，名称为C1，标题为“添加”（如图所示）。程序的功能是，在运行时，如果在文本框中输入一行内容单击“添加”按钮，则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项，则立即从列表中删除该项。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

Private Sub C1_Click()

' L1.? Text1.Text ***** additem *****

End Sub

Private Sub L1_Click()

' L1.RemoveItem ? ***** L1.listIndex *****

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画一个文本框，名称为Text1；画一个命令按钮，名称为C1，标题为“确定”；再画三个单选按钮，名称分别为Op1、Op2、Op3，标题分别为“飞机”、“火车”、“汽车”（如图所示）。请编写适当的事件过程，使得在运行时，选中一个单选按钮并单击“确定”按钮后，按照下表在文本框中显示相应内容。

注意：不得修改已经给出的程序。退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须选中一个单选按钮，并单击“确定”按钮。否则可能无成绩。

Private Sub C1_Click()

***** 请考生编写*****

If op1.value=true then

Text1.text=”需要1小时”

End if

If op2.value=true then

Text1.text=”需要10小时”

End if

If op3.value=true then

Text1.text=”需要15小时”

End if

***** End Sub *****

Private Sub Form_Unload(Cancel As Integer)

Open "out4.txt" For Output As #1

Print #1, Op1.Value, Op2.Value, Op3.Value, Text1.Text

End Sub

第13套综合应用题（新模65）

在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体中有一个文本框，二个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止计数”按钮，则停止计数（如图所示）。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改的文件以原来的文件名存盘。

Private Sub C1_Click(Index As Integer)

' Select Case ? ***** Index *****

Case 1

Timer1.Enabled = False

' Case ? ***** 0 *****

Timer1.Enabled = True

End Select

End Sub

Private Sub Timer1_Timer()

' Text1.Text = Text1.Text ? ***** +1 *****

End Sub

第14套简单应用题（新模78）

（1）在考生目录下有一个工程文件sjt3.vbp，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单（如图1所示），程序运行时，若单击“格式”菜单项，则显示Form2窗体（如图2所示），选中一种字号和字体后单击“确定”按钮，则可改变Form1上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则结束程序的运行。

文件中已经给出了所有控件和程序，但程序不完整，要求：

本文来源：https://www.bwwdw.com/article/7vxl.html