问答题（1）在考生文件夹下有一个工程文件sit3.vbp，其窗体上有一个控件数组，名称为Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”，有一个名称为Text1的控件数组，含三个初始内容为空的文本框，此外还有两个名称分别为Cmd1和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为木可用，如下图所示。该程序的功能是计算公用电话计时收费。计时收费的标准是：通话时间在3分钟以内时，收费0.5元；3分钟以上时，每超过1分钟
题目
相似考题
更多“（1）在考生文件夹下有一个工程文件sit3.vbp，其窗体上有一个控件数组，名称为Label1，含三个标签，标题分别是“”相关问题
-
第1题：
在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。
2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。
要求：编写程序，以实现试题要求的功能。
注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
正确答案：① 对象主要属性设置如表3所示。
② 分析：按试题要求在窗体上画一个文本框和一个命令按钮并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。
③ 编程代码：
Private Sub Cmd1_C1ick()
Text1. Text＝""
End sub
2．① 窗体Load事件过程的程序如下：
Private Sub Form_Load()
List1.AddItem"项目1"
List1.AddItem"项目2"
List1.AddItem"项目3"
List1.Addltem"项目4"
End Sub
② 命令按钮Click事件的程序如下：
Private Sub Command1_Cllek()
For i＝0 To List1.ListCount—1
If List1. Selected(i)＝True
Then
Text1. Text＝List1. List
(i)
End If
Next i
End Sub
① 对象主要属性设置如表3所示。
② 分析：按试题要求在窗体上画一个文本框和一个命令按钮，并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。
③ 编程代码：
Private Sub Cmd1_C1ick()
Text1. Text＝""
End sub
2．① 窗体Load事件过程的程序如下：
Private Sub Form_Load()
List1.AddItem"项目1"
List1.AddItem"项目2"
List1.AddItem"项目3"
List1.Addltem"项目4"
End Sub
② 命令按钮Click事件的程序如下：
Private Sub Command1_Cllek()
For i＝0 To List1.ListCount—1
If List1. Selected(i)＝True
Then
Text1. Text＝List1. List
(i)
End If
Next i
End Sub
-
第2题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。
在窗体上有三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，还有一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图22-8所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：在Visual Basic中菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符如：N Mod 3=0则说明余数为0N能被3整除否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(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
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(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 Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在Visual Basic中，菜单项通过菜单编辑器来建立。 程序中用到的Mod是取模的运算符，如：N Mod 3=0则说明余数为0，N能被3整除，否则N不能被3整除。对文件的操作都有3个步骤：打开(Open)、读写、关闭(Close)。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表22-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(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
'?#1
End Sub
Private Sub Calc_Click()
'Text1.?=""
For i=1 To 100
If Arr(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
'temp=temp+9
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(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 Calc_Click()
Text1.Text=""
For i=1 To 100
If Art(i) Mod 3=0 Then
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
End If
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第3题：
新建一个工程，在窗体中创建一个标签，名字是Label1。要求实现的功能是：单击窗体后，在标签控件中显示三号字体的字符串“为人民服务”。程序运行结果如图6所示。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。
正确答案：(1) Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择标签控件在窗体中画出一个标签。在其属性窗口中将Visible属性改为FalseCaption属性设置为“为人民服务”双击Font属性将字体大小设置为三号字。 (3)双击标签弹出代码窗口在其中输入如下代码： Private Sub Form_Click() Labell.Visible=True End Sub (4)按F5键运行程序。如图6所示。 (5)执行“文件”→“保存工程”命令将工程文件命名为ylc2.vbp窗体文件命名为 ylc2.frm。
(1) Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择标签控件，在窗体中画出一个标签。在其属性窗口中，将Visible属性改为False，Caption属性设置为“为人民服务”，双击Font属性，将字体大小设置为三号字。 (3)双击标签弹出代码窗口，在其中输入如下代码： Private Sub Form_Click() Labell.Visible=True End Sub (4)按F5键运行程序。如图6所示。 (5)执行“文件”→“保存工程”命令，将工程文件命名为ylc2.vbp，窗体文件命名为 ylc2.frm。 解析：(2)第2小题考查的仍然是对Visible属性的操作。可参见前面的讲解。 -
第4题：
在名为Form1的窗体上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”、“计算”和“保存”)，然后绘制一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如下图所示。
程序运行后，如果执行“读数”命令，则读入in.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来：如果执行“保存”命令，则把所求得的和存入考生文件夹下的out.txt文件中。
在考生文件夹下有一个工程文件execise58.vbp，考生可以装入该文件。窗体文件 exeCise58.frm中的ReadData过程可以把in58.txt文件中的100个整数读入Arr数组中：而WriteDam过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out58.txt)。
注意：
考生不得修改窗体文件中已经存在的程序。保存时，工程文件名仍为execise58.vbp，窗体文件名仍为execise58.frm。
正确答案：
-
第5题：
在名为Form1的窗体上绘制一个标签，其名称为Lab1，标题为“计算机等级考试”， Borderstyle属性为1，可以根据标题自动调整大小：再绘制一个命令按钮，其名称和标题均为Cmd1。编写适当的事件过程，使程序运行后，如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。程序运行情况如下图所示。
注意：
文件必须存放在考生文件夹中，工程文件名为execise111.vbp，窗体文件名为 execise111.frm。
正确答案：
-
第6题：
在名为Form1标题为“选课”的窗体上绘制一个复选框数组；名为Chk1，共有4个复选框，按顺序其标题分别是“音乐”、“美术”、“体育”和“政治”，其中“体育”和“政治”复选框处在选中状态下。请绘制控件并设置相应属性，使运行时的窗体如下图所示。
注意：
文件必须存放在考生文件夹中，工程文件名为execise23.vbp，窗体文件名为 execise23.frm。
正确答案：
-
第7题：
在考生文件夹下有一个工程文件sjt4．vbp，窗体上有一个名称为Command1，标题为“运行”的命令按钮。请画两个名称分别为Text1和Text2，初始内容都为空的文本框，再画两个名称分别为Label1、Label2，标题分别是“最大数”和“最大数位置”的标签。
程序功能：单击“运行”按钮，则产生50个不重复的介于0～100之问（含0和100）的随机数，且以每行10个数的形式显示在窗体上；最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
正确答案：【解题思路】随机生成50个0～100之间的数据，再对这50个数据进行比较，获取最大值和最大的值的位置。将50个数据先保存在数组中，并打印在窗体上，打印函数为Print。
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加两个TextBox控件和两个Label控件，并按表4．9在属性窗口中设置相应属性，如图4．9所示。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -
第8题：
在名为Form1的窗体中绘制一个名称为Lab1的标签，其标题为“0”，Borderstyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如下图所示的是程序刚启动时的情况。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 exeeise85.vbp，窗体文件名为execise85.tim。
正确答案：
-
第9题：
请教:2016年计算机二级VB基础练习一简答题11如何解答?在考生文件夹下有一个工程文件sit3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Textl中显示“我开汽车去”，如图所示。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
步骤1：打开本题工程文件，按照题目要求建立单选按钮数组，如图所示。
步骤2：按照题目要求建立其他控件并设置其属性，见表
步骤3：打开代码编辑窗口，去掉程序中的注释符“?”，将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Private Sub Op1_click (Index As Integer)
Dima As String，b As String，C As String
a="我坐"
b="我开"
Select Case____Index______
?通过Index值决定响应哪一个控件数组
CaSe O
Text1.Text=a+Me.Op1(O).Caption+"去"
CaSe 1
Text1.Text=____a______+Me.Opl(1).Caption+"去"
?当Index值为1时，选择"我坐"
CaSe 2
Text1.Text=b+Me.Op1(2).Caption+"去"
End Select
EndSub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
-
第10题：
（1）在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图61-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为“当前时间／日期切换”；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图61-2所示。
注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。
正确答案：(1)计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True表示启用，False表示不启用。 根据题意，新建“标准EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为Label1、Caption属性为“0”，Timer的名称为Timer1、Interval属性为“1000”。 设置完成后双击Command1进入代码窗口，编写如下代码：
(2)根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间／日期切换”。双击Command1进入代码窗口，编写如下代码：
-
第11题：
在考生文件夹下有一个工程文件sjt3．vbp，运行情况如图4所示。程序的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!
其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Commandl、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。 在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容。 要求：程序调试通过后，必须按照如图4所示输入N=5，x=12，然后计算Z的值，并将计算结果显示在标签Label1中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有名称为Label1的标签和名称为Timer1 的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图5所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体艾件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
正确答案：
第1小题
【审题分析】本题原程序中，自定义函数xn的功能是进行m! 阶乘运算，它通过For循环连续m次将循环变量i的值乘以累积变量trap(第一个?处tmp初值应为1)来实现。故自定义函数xn中第两个?处应改为：tmp*i，作为函数返回值第三个?处应改为：xn。
在“计算”按钮的单击事件过程中，根据程序所要计算表达式的特点，原程序利用一个Fc循环依次计算表达式中各项的值((x-i)!)，并将其累加入变量z计算表达式中各项的值通过调用自定义函数xn(t)来实现的，其中=x-i。故Commandl Click事件过程中第一个?处应改为：xn(t)。计算结果显示在标签中。
步骤2：按<F5>键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击“计算”按钮。
步骤3：按要求将文件保雨至考生文件夹中。
第2小题
【审题分析】要实现本题中的功能，在窗体的Load事件过程中，首先使用Array函数建立一个新数组，然后设置计时器的相关属性并肩用计时器；在计时器的Timer事件中，由于需要计算Timer 事件的执行次数才能判断出应该显示何种文字，因此计数变量i应该声明为Static类型的变量，然后把数组的第i项显示在标签中，接下来令i+1，一旦i超过了3就将其重新置0以便实现循环显示。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
-
第12题：
问答题（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮（如图1所示）一然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：图1 ①窗体标题为“设置按钮属性”； ②命令按钮的标题为“等级考试”； ③程序运行后，命令按钮不可见； ④命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图2所示。图2 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。 （2）在名称为Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把BorderStyle属性设置为1（如图1所示），编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角（只允许在程序中修改适当属性来实现），如图2所示。图1图2 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。正确答案： (1)步骤1:新建一个窗体,将其Caption属性设置为“设置按钮属性”。向窗体中添加一个命令按钮,将其名称、Caption、Font、Visible属性分别设置为“Command1”、“等级考试”、“黑体常规三号”、“False”。
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)步骤1:新建一个窗体,添加一个标签控件,将其名称和BorderStyle属性分别设置为“Label1”、“1”。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
Private Sub Form Click()
Label1.Top=0'设置Label1的初始位置
Label1.Left=Form1.Width-Label1.Width
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。解析： 暂无解析 -
第13题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
正确答案：使用Open方法和Close方法打开和关闭文件使用循环语句把整数赋给数组。在计算输出时先定义一个变量用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(i)
Next i
'? #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 Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1 Arr(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 Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt" temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
使用Open方法和Close方法打开和关闭文件，使用循环语句把整数赋给数组。在计算输出时，先定义一个变量，用来保存奇数的和；计算时找出数组中下标为奇数的数进行累加，将结果在文本框中显示出来。在窗体上打印内容可以用 Print方法来实现。解题步骤： 第一步：建立菜单项、建立界面并设置控件属性。程序中用到的菜单项及其控件属性见表21-5。
第二步：编写程序代码。
程序提供的代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(i)
Next i
'? #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 Calc_Click()
'Text1.?=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
'Print ?
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
参考代码：
Option Base 1
Dim Arr(100) As Integer
Dim temp As Integer
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i=1 To 100
Input #1, Arr(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 Calc_Click()
Text1.Text=""
For i=1 To 100 Step 2
Text1.Text=Text1.Text & Arr(i) & Space(5)
temp=temp+Arr(i)
Next i
Print temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第14题：
在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
正确答案：C
c) 【解析】本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步，在驱动器Drive1的Change事件中，要Dir1．Path = Drive1．Drive，使日录的路径和驱动器一致，同时在目录Dirl的Change事件中要File1．Path=Dir1．Path，使文件路径的位置和驱动器一致。可以在文件列表框中使用ListCount属性来统计文件数目(当文件路径改变时统计)。 -
第15题：
在名为Form1的窗体上建立一个名为Cmd1的命令按钮数组，含3个命令按钮，它们的Index属性分别为0、1、2，标题依次为Yes、No和Cancle，每个按钮的高、宽均为400、 700。窗体的标题为“Cmd窗口”。运行后的窗体如下图所示。
注意：文件必须存放在考生文件夹中，工程文件名为execise85.vbp，窗体文件名为 execise85.frm。
正确答案：
-
第16题：
在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上 有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是“Wait”、“Edit”、“Aix”和“Move”，如图3-5所示。
在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符(即“b’号)，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
①打开题目所给工程文件。
②将注释浯句改为：
Form1．MousePointer=0
Select Cave Index
③按要求深存文件即完成本题。
-
第17题：
在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个标题分别是“读数据”和“统计”的命令按钮，一个名称为Textl的文本框，两个标签控件，如图所示。
程序功能如下：
①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容（该文件中含有不超过800个英文单词，单词之问用1个空格隔开）显示在Textl文本框中；
②单击“统计”按钮，则自动统计Textl中所有5字母单词的个数，并显示在右下角的Labell标签中。“读数据”按钮的Click事件过程已经给出，“统计”按钮的Click事件过程不完整，函数GetWords的功能是从字符串s中分离出每个单词，依次放入数组words的数组元素中，返回值为单词的总数目。
要求：请将程序中的注释符去掉，把?改为正确的内容；补全“统计”按钮Click事件过程中的代码，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“统计”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
正确答案：
【解题思路】从文件中读取一串文本到文本框中，将文本框中的内容划分到数组中，遍历数组中的内容，如果字符串长度等于5，长度为5的单词个数增加1。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容，并在指定位置编写代码。
参考答案(阴影部分是需考生填入的内容)
第18题：
在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
正确答案：【解题思路】此题目主要是对While循环和For循环的考查，循环结构是指在满足循环条件时反复执行循环代码块，直到循环条件不能满足为止。一个循环语句一般应包含4个部分的内容。
初始化部分：设置循环控制的一些初始条件
循环体部分：反复执行的代码
迭代部分：修改循环控制条件
判断部分：判断是否继续执行循环体
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加一个TextBox控件，并按表4．8在属性窗口中设置相应属性，如图4．8所示。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。第19题：
在窗体Form1上建立3个菜单(名称分别为vbRead、vbCalc和vbSave，标题分别为“读数”、“计算”和“保存”)，然后绘制一个文本框(名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2)，如下图所示。
程序运行后，如果执行“读数”命令，则读入in49.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果执行“计算”命令，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果执行“保存”命令，则把所求得的和存入考生文件夹下的out49.txt文件中。
在考生文件夹下有一个工程文件execise49.vbp，考生可以装入该文件。窗体文件 execise49.frm中的ReadData过程可以把in49.txt文件中的100个整数读入Arr数组中：而 WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out49.txt)。
注意：
考生不得修改窗体文件中已经存在的程序。保存时，工程文件名仍为execise49.vbp，窗体文件名仍为execise49.frm。
正确答案：
第20题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体如图4所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个名称为Shal的形状控件，然后建立一个菜单，标题为“形状”，名称为shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shape1和shape2，如图5所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjit2.vbp．窗体文件名为sjt2.frm。
正确答案：第1小题
【审题分析】本题只需按题目要求画出含三个元素的按钮数组，并分别设置Caption属性。
【操作步骤】
步骤l：新建一个“标准EXE”工程，如表1-1在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
【主要考点】控件数组画法。
第2小题
【知识点拔】形状控件(Shape)提供了显示一些规则图形的简易方法。通过设置形状控佴Shape属性值，可显示6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形。Width属性用于设置形状的雹度，当形状为圆时即为圆的直径。
【审题分析】要实现席题中的功能，应在“正方形”菜单项的Click事件过程中，令Sha1的Shape属性为1，在“圆形”菜单项的Click事件过程中，令Sha1的Shape属性为3。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个名为Sha1的形状控件。
步骤2：选择【工具】->【菜单编辑器】命令，打开菜单设计器，如表1．2中的设置建立菜单项。
步骤4：按要求将文件保存至考生文件夹中。第21题：
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。
注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
正确答案：(1)根据题意，新建“标准EXE”工程，在窗体上添加两个标签，名称分别为Label1和Label2、Caption属性分别为“长”和“宽”，两个文本框，名称分别为Text1和Text2、Text属性为空，一个命令按钮，名称为Command1，Caption属性为“输入”。设计完成后，双击Command1进入代码窗口，编写如下代码：
(2)根据题意，新建“标准EXE”工程，在窗体上添加一个标签，其名称为Label1，标题为“输入”，一个文本框，其名称为Text1、Text属性为空，一个命令按钮，其名称为Com-mand1、标题为“显示”。窗体设计完成后，双击Command1命令按钮，编写如下代码：
第22题：
在考生文件夹下有一个工程文件sjt3．vbp，其功能是： ①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中； ②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36=62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Text1、Text2中。 在给出的窗体文件中有了全部控件(如图6所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件己存在的控件和程序，最后将程序原文件名存盘。
(2)在考生文件夹_下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能如下： ①系统启动时，自动向列表框添加一个编号信息“a0001”。 ②系统运行时，在文本框Text1中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出“不允许重复输入，请重新输入!”对话框，单击该对话框中的“确定”按钮，可以重新输入。 ③单击“退出”按钮．则结束程序运行。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
正确答案：
第1小题
【知识点拔】Sqr(N)求平方根函数，用于返回N的算术平方根。
【审题分析】is_square函数用于判断参数x是否为完全平方数，方法是从l到X的平方根进行循环，依次判断x是否能等于循环变量的平方，若等于则退出循环，返回True，若循环结束后都没有等于某个循环变量的平方则返州False。
求完全平方数的最人值．只需要先预设最大值为0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加1，循环结束后可得最大值与个数。
【操作步骤】
步骤l：打开考生文件夹下的本题工程文件sjt3．vbp，去掉程序中的注释符“”’，将问号“?”改为正确的内容。
参考代码：
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【审题分析】若要在系统启动时，自动向列表框添加一个编号信息“a0001”，需要在窗体的Load事件中调用列表框的Addltem方法向列表框中添加列表项。
在“添加”按钮的单击事件中，需要判断输入的值是否在列表框中已存在，为了实现这个功能，需要遍历整个列表框，其循环条件为For i=0 To List1．ListCount-1；在循环中首先令Listlndex属性值为i，这样第i个列表项的内容就是列表框的Text属性值，可以与文本框中的内容进行比较已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的AddItem方法将文本框的内容加入列表框。
在“退出”按钮的单击事件过程，使用End语句结束整个程序的运行。
【操作步骤】
步骤l：打开考生文件中的本题工程文件sjt4．vbp，如表1-22 在窗体p画出控件并设置其相关属性。
步骤2：在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。
参考代码：
List1 Addltem”a0001”
Forl=0 To List1 ListCount-1
List1．Listlndex=1
List1.Addltem Text1. Text
End
步骤3：按要求将文件保存至考生文件夹中。第23题：
在窗体上添加一个标签控件Label1，则执行Label1.Caption="VisualBasic"语句后，标签控件的Name和Caption属性为（）
- A、"Label"、"Label1"
- B、"Label1"、"VisualBasic"
- C、"Label1"、"Caption"
- D、"VisuaBasic"、"Label1"
正确答案:B
