在名为Form1的窗体上建立一个文本框,名为Text1;建立一个命令按钮,名为Cmd1,标题为“计算”的,如下图所示。

要求程序运行后,如果单击“计算”按钮,则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来,结果存入考生文件夹中的out117.txt文件中。
在考生的文件夹中有一个mode.bas标准模块,该模块中提供了保存文件的过程putdah,考生可以直接调用。
注意:
文件必须存放在考生文件夹中,窗体文件名为execisell7.frm,工程文件名为
execise117.Vbp。

第1题:
在Form1的窗体土绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示VisualBasic。程序运行情况如下图所示。

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

第2题:
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”和“存盘”,名称分别为 vbNew、vbOpen和vbSave。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图3-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
(2)在窗体上建立一个名称为Text1的文本框,再建立一个名称为Cmd1,标题为“计算”的命令按钮,如图3-4所示。要求程序运行后,单击命令按钮,将计算100-200之间所有素数之和,在文本框中显示结果,同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回 False,考生可以把该模块文件添加到自己的工程中。)
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp,结果存入out.txt文件。

第二步:编写程序代码。
参考代码:
Private Sub vbNew_Click()
MsgBox“新建”vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox“打开”vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox“存盘”vbOKOnly
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
(2)在窗体上建立好控件后先设置控件的属性值再编写事件过程。
文本框中显示的内容由Text属性设置命令按钮的标题由Caption属性设置单击命令按钮触发Click事件。解题步骤:第一步:建立菜单项。程序中用到的控件及其属性见表3-3。
第二步:编写程序代码。
参考代码:
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Text1.Text = temp
putdata "out.txt"temp
End Sub
标准模块代码:
Option Explicit
Sub putdata(t_FileName As StringT Str As Variant)
Dim sFile As String
sFile = "\" & t FileName
Open App.Path & sFile For Output As # 1
Print #1T_Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J=2 To t I / 2
If t I Mod J = 0 Then Exit For
Next J
If J>t I/2 Then isprime = True
End Function
第三步:调试并运行程序。
第四步:按题目要求存盘。
第二步:编写程序代码。
参考代码:
Private Sub vbNew_Click()
MsgBox“新建”,vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox“打开”,vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox“存盘”,vbOKOnly
End Sub
第三步:调试并运行程序。
第四步:按题目要求存盘。
(2)在窗体上建立好控件后,先设置控件的属性值,再编写事件过程。
文本框中显示的内容由Text属性设置,命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件。解题步骤:第一步:建立菜单项。程序中用到的控件及其属性见表3-3。
第二步:编写程序代码。
参考代码:
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Text1.Text = temp
putdata "out.txt",temp
End Sub
标准模块代码:
Option Explicit
Sub putdata(t_FileName As String,T Str As Variant)
Dim sFile As String
sFile = "\" & t FileName
Open App.Path & sFile For Output As # 1
Print #1,T_Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J=2 To t I / 2
If t I Mod J = 0 Then Exit For
Next J
If J>t I/2 Then isprime = True
End Function
第三步:调试并运行程序。
第四步:按题目要求存盘。
第3题:
在名为Form1的窗体上建立一个文本框,名为Text1;一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数10,放入整型变量s中,然后计算s!(提示:运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件output.txt中(在考生文件夹中有一个标准模块 mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用)。

注意:
文件必须存放在考生文件夹中,窗体文件名为execise54.frm,工程文件名为 exeeise54.vbp。

第4题:
在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图4-3所,示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放人整型变量a中,然后汁算a!.(提示:运算结果应放人Lon9型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。 注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。

|
控件 |
属性 |
设置值 |
|
文本框 |
Name |
Text1 |
|
命令按钮 |
Name |
Cmd1 |
|
命令按钮 |
Caption |
计算 |
②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型。(例如:Dim temp As Long)
③打开工程资源管理器,在其空白处右键添加模块mode.bas(此文件已在考生文件夹里),模块代码如下:
Option Explicit
Sub putdata(t_FileName As String,T_Str As Variant)
Dim sFile As String
sFile="\"&t FileName
Open App.Path&sFile For Output As#1
Print#1,T Str
Close#1
End Sub
④打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下:
Private Sub Cmd1_Click
Dim a As Integer
Dim temp As Long
Dim i As Integer
a=Val(InputBox("请输入"))
temp=1
For i=1 To Val(a).
temp=temp*i
Next i
Text1.Text =temp
putdata"out.txt",Text1.Text
End Sub
⑤调试并运行程序。
⑥按题目要求存盘。
第5题:
在名为Form1的窗体上建立一个名为Cmd1,宽度为1000、高度为500,标题为“显示”的命令按钮。编写适当的事件过程,使程序运行后,若单击“显示”命令按钮,则在窗体上显示“计算机等级考试”。运行结果如下图所示。

注意:
不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为 execise101.frm,工程文件名为execise101.vbp。

第6题:
请在名为Form1窗体上绘制一个命令按钮,名为Cmd1,标题为“按钮”。请编写适当的事件过程,使得在运行时单击“按钮”按钮,则在窗体上显示“单击按钮”(如下图所示)。

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

第7题:
在名为Form1的窗体上绘制一个文本框,名为Text1:绘制一个命令按钮,名为Cmd1,标题为“显示”,它的Tab Index属性设置为0。请为Cmd1设置适当的属性,使得当焦点在 Cmd1上时,按Esc键就调用Cmd1的Click事件,该事件过程的作用是在文本框中显示“等级考试”,程序运行结果如下图所示。

注意:
文件必须存放在考生文件夹中,工程文件名为execise101.vbp,窗体文件名为 execiSe101.frm。

第8题:
在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为“没有单击按钮”。请编写适当的事件过程,使得在运行时,若单击“没有单击按钮”按钮,则按钮的标题改为“已经单击按钮”。程序的运行情况如下图所示。

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

第9题:
在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则在窗体上显示ViSBa1 Basic;如果单击窗体,则命令按钮消失。程序运行情况如下图所示。

注意:
在程序中不能使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise16.vbp,窗体文件名为execise16.frm。

第10题:
在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。

注意:
文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。

第11题:
在名为Form1的窗体上建立一个名为Text1的文本框,将MuRiLine属性设置为True,ScrollBars属性设置为2。再建立两个名称分别为Cmd1、Cmd2和Cmd3命令按钮,标题分别为“读数”、“排序”和“保存”,如下图所示。
程序运行后,如果单击“读数”按钮,则读入in17.txt文件中的100个整数,放入一个数组中(数组下界为1);如果单击“排序”按钮,则对100个整数按从大到小进行排序;如果单击“保存”按钮,把排序后的全部数据在文本框Text1中显示出来,然后存入考生文件夹中的文件out17.txt中(在考生的目录下有标准模块mode1.bas过程可以把指定个数的数组元素存入out17.txt文件,考生可以把该模块文件添加到自己的工程中)。

注意:
文件必须存放在考生文件夹中,窗体文件名为execise17.frm,工程文件名execise17.vbp,排序结果存入out17.txt,否则没有成绩。

第12题:
在名为Foma1的窗体上绘制一个标签(名称为Lab1,标题为Input)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Cmd1,标题为Display)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入Visual Basic,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如下图所示。

注意:
要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise69.vbp,窗体文件名为exeCise69.frm。

第13题:
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签,一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程,使程序运行后,在文本框中输入严计算机等级考试”,然后单击命令按钮,则文本框消失,并在标签内显示文本框中的内容。运行后的窗体如下图所示。

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

第14题:
在名为Form1的窗体上建立一个名为Text1的文本框,将MultiLine属性设置为Tree,ScrollBars属性设置为2。再建立两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为 Read和Save,如下图所示。

程序运行后,如果单击Read按钮,则读入in46.txt文件中的100个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来;如果单击“保存数据”按钮,则把数组中的前50个数据在文本框Text1中显示出来,并存入考生文件夹中的文件out46.txt中(考生文件夹中有标准模块prog.bas,其中的putdata过程可以把指定个数的数组元素存入out46.txt文件,考生可以把该模块文件添加到自己的工程中)。
注意:
文件必须存放在考生文件夹中,窗体文件名为execise46.frm,工程文件名为 execise46.vbp。结果存入out46.txt文件,否则没有成绩。

第15题:
在名为Form1的窗体中建立一个命令按钮,名为Cmd1,标题为Show(如下图所示)。编写适当的事件过程,使程序运行后,若单击Show按钮,则执行语句Form1.Print"Show"如果单击窗体,则执行语句Form1.Cls。

注意:
文件必须存放在考生文件夹中, 窗体文件名为execise351frm,工程文件名为 execise35.vbp。

第16题:
在名为Form1的窗体上建立一个名为Text1的文本框,将MultiLine属性设置为True,ScrollBars属性设置为2。同时建立两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为Read和Save(如下图所示)。

要求程序运行后,如果单击Read按钮。则读入inl.txt文件中的100个整数,放入二个数组中(数组下界为1),同时在文本框中显示出来;如果单击Save按钮,则计算数组中大于或等于1并且小于400的所有数之和,把求和结果在文本框Text1中显示出来,同时把计算结果存入考生文件夹中的文件out1.txt中。(在prog.bas中的putdata过程可以把结果存入out1.txt文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程)
注意:
文件必须存放在考生文件夹中,窗体文件名为execise1.frm,工程文件名为execise1.vbp,计算结果存入out1.txt,否则没有成绩。

第17题:
在名为Form1窗体上绘制一个命令按钮,其名称为Cmd1,标题为C1ear。编写适当的事件过程,使程序运行后,若单击命令按钮,则清除窗体的标题。程序运行结果如下图所示。

注意:
文件必须存放在考生文件夹中,工程文件名为execise83.vbp,窗体文件名为 execlse83.frm。

第18题:
在名为Form1的窗体上放置一个名为Text1的文本框。程序运行后,用户在文本框中输入的英文字母一律用大写显示(要求焦点在最右端),如下图所示。

注意:
文件必须存放在考生文件夹中,窗体文件名为execise12.frm,工程文件名为 execise12.vbp。

第19题:
在名为Form1的窗体上建立一个文本框,名为Text1;再建立一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。

要求程序运行后,单击命令按钮,则计算出1~200之间所有素数之和,并在文本框中显示结果,同时把结果存入文件out48.txt中(在考生文件夹中有标准模块mode.bas,其中的 putdata过程可以把结果存入文件;而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False;考生可以把该模块文件添加到自己的工程中)。
注意:
文件必须存放在考生文件夹中,窗体文件名为execise48.frm,工程文件名为 execise48.vbpo

第20题:
在名为Form1的窗体上建立一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程,使程序运行后,若单击“显示”命令按钮,则在窗体上显示“计算机等级考试Visual Bask课程”。程序运行情况如下图所示。

注意:
不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为 execise77.frm,工程文件名为execise77.vbp。

第21题:
在窗体上绘制一个命令按钮,其名称为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则把窗体的标题修改为VisualBasic,程序运行结果如下图所示。

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

第22题:
在考生文件夹下有一个工程文件execise21.vbp(相应的窗体文件为execise21.frm),在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框;绘制一个名为Cmd1,标题为“计算”的命令按钮:再绘制两个单选按钮,名称分别为Opt1和Opt2,“求500到600之间能被3整除的数之和”标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”,如下图所示。

编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意:
考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前,必须至少进行一种计算,否则不得分。

第23题:
在名为Form1的窗体上建立两个名称分别为Opt1和Opt2、标题分别为“1-300之间素数”和“300-500之间素数”的单选按钮,一个名为Text1文本框和两个名称分别为Cmd1和Cmd2,标题分别为“计算”和“保存”命令按钮,如下图所示。

程序运行后,如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“保存”按钮,则把计算结果存入out19.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块 mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中)。
注意:
必须把300~500之间的素数之和存入考生文件夹下的out19.txt文件中,否则没有成绩。保存程序时必须存放在考生文件夹中,窗体文件名为execise19.frm,工程文件名为 execise19.vbp。
