问答题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求如下。 ①设置Timer1的属性，使其在初始状态下不计时。 ②设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一次。 ③去掉程序中的注释符，把程序中的“？”改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移
题目
相似考题
更多“（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航”相关问题
-
第1题：
在考生文件夹中有工程文件execise10.vbp及窗体文件execise10.frm。在名为Form1的窗体上有一个名为Pic1的图片框，一个名为Cmd1、标题为Input的命令按钮，两个单选按钮(名称分别是Opt1和opt2，标题分别是“画圆”和“画方”)。
要求程序运行后，选中两个单选按钮中的一个，再单击命令按钮Input，在弹出的输入对话框中输入相应的参数值，则在图片框上绘制出相应的图形(如下图所示)。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第2题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框?名称分别为P1和P2，其中的图片分别是一个航天器和一朵云，还有一个计时器控件，名称为Timer1，一个命令按钮，名称为C1，标题为“发射”。窗体文件中给出了两个事件过程，但并不完整，要求：设置计时器控件的属性，使其在初始状态下不计时；设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。
去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动。程序运行界面如图20-3所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经有两个文本框，名称分别为Text1和Text2；一个命令按钮，名称为C1，标题为“确定”。请画两个单选按钮，名称分别为Op1和Op2，标题分别为“男生”和“女生”；再画两个复选框，名称分别为Ch1和Ch2，标题分别为“体育”和“音乐”。请编写适当的事件过程，使得在运行时，单击“确定”按钮后实现下面的要求：
根据选中的单选按钮，在Text1中显示“我是男生”或“我是女生”；根据选中的复选框，在Text2中显示“我的爱好是体育”或“我的爱好是音乐”或“我的爱好是体育音乐”。程序运行界面如图20-4所示。
注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
正确答案：控件已经建立完好只需设计事件过程即可。 Timer1控件的Interval属性是用来控制计时器事件发生的时间间隔通过题意可知该属性设置为100(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时把计时器控件的Enabled属性设置为True。如果使航天器即P1停止移动需要将计时器控件的Enagled属性设置为False。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表20-3。
第二步：编写程序代码。
程序提供的代码：
Private Sub C1_Click()
' Timer1.Enabled=
End Sub
Private Sub Timer1_Timer()
Static a%
a=a+1
' If P1.Top＞P2.Top+P2.? Then
P1.Move P1.Left P1.Top-5-a P1.Width P1.Height
Else
' Timer1.?=False
End If
End Sub
参考代码：
Private Sub C1_Click()
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Static a%
a=a+1
If P1.Top＞P2.Top+P2.Height Then
P1.Move P1.Left P1.Top-5-a P1.Width P1.Height
Else
Timer1.Enabled=False
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件属性再编写事件过程。
在文本框里显示的内容通过文本框的Text属性设置。Value属性用来表示复选框后单选框的状态。对于单选框来说Value属性可设置为True或False当设置为True时该单选按钮是被选中的否则该单选按钮没有被选中。对于复选框来说Value属性可以设置为0、1或2。其中：0—表示没有选中该复选框；1—表示选中该复选框；2—表示该复选框被禁止(灰色)。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表20-4。
第二步：编写程序代码。
参考代码：
程序提供的代码：
Private Sub Form_Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1 Op1.Value Op2.Value Text1.Text
Print #1 Ch1.Value Ch2.Value Text2.Text
Close #1
End Sub
参考代码：
Private Sub C1_Click()
If Op1.Value Then
Text1.Text="我是" & Op1.Caption
Else
Text1.Text="我市" & Op2.Caption
End If
Text2.Text="我的爱好是"
If Ch1.Value=1 Then
Text2.Text=Text2.Text & Ch1.Caption
End If
If Ch2.Value=1 Then
Text2.Text=Text2.Text & Ch2.Caption
End If
End Sub
Private Sub Form Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1 Op1.Value Op2.Value Text1.Text
Print #1 Ch1.Value Ch2.Value Text2.Text
Close #1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
控件已经建立完好，只需设计事件过程即可。 Timer1控件的Interval属性是用来控制计时器事件发生的时间间隔，通过题意可知该属性设置为100(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时，把计时器控件的Enabled属性设置为True。如果使航天器即P1停止移动，需要将计时器控件的Enagled属性设置为False。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表20-3。
第二步：编写程序代码。
程序提供的代码：
Private Sub C1_Click()
' Timer1.Enabled=
End Sub
Private Sub Timer1_Timer()
Static a%
a=a+1
' If P1.Top＞P2.Top+P2.? Then
P1.Move P1.Left, P1.Top-5-a, P1.Width, P1.Height
Else
' Timer1.?=False
End If
End Sub
参考代码：
Private Sub C1_Click()
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Static a%
a=a+1
If P1.Top＞P2.Top+P2.Height Then
P1.Move P1.Left, P1.Top-5-a, P1.Width, P1.Height
Else
Timer1.Enabled=False
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
在文本框里显示的内容通过文本框的Text属性设置。Value属性用来表示复选框后单选框的状态。对于单选框来说，Value属性可设置为True或False当设置为True时，该单选按钮是被选中的，否则该单选按钮没有被选中。对于复选框来说，Value属性可以设置为0、1或2。其中：0—表示没有选中该复选框；1—表示选中该复选框；2—表示该复选框被禁止(灰色)。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表20-4。
第二步：编写程序代码。
参考代码：
程序提供的代码：
Private Sub Form_Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Text1.Text
Print #1, Ch1.Value, Ch2.Value, Text2.Text
Close #1
End Sub
参考代码：
Private Sub C1_Click()
If Op1.Value Then
Text1.Text="我是" & Op1.Caption
Else
Text1.Text="我市" & Op2.Caption
End If
Text2.Text="我的爱好是"
If Ch1.Value=1 Then
Text2.Text=Text2.Text & Ch1.Caption
End If
If Ch2.Value=1 Then
Text2.Text=Text2.Text & Ch2.Caption
End If
End Sub
Private Sub Form. Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Text1.Text
Print #1, Ch1.Value, Ch2.Value, Text2.Text
Close #1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第3题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
正确答案：① 首先将模块文件mode.bas添加到工程中模块中包含的过程如下： Sub putdata(t_filename As Stringt_str As Variant) Dim stile As String sfile＝".\"&& t filename Open App. Path && sfile For Output As #1 Print #1t_str Close #1 End Sub ② 编写命令按钮的事件过程： Private Sub Command1_Click) Dim ni As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=1 For i＝1 To n j＝j*i Next i Text1.Text＝j putdata "out3.txt"j End Sub ③ 运行程序在inputbox对话框中输入数字“10”。 ④ 按试题要求保存窗体文件和工程文件。 2．① 建立界面和设置控件属性。 程序用到的控件及其属性如下表3所示。
② 编写程序代码。
参考代码：
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Driver1.Drive
End Sub
Private Sub File1_DblClick()
x＝Shell(Filel.FileName1)
End Sub
③ 按题目要求存盘。
① 首先将模块文件mode.bas添加到工程中，模块中包含的过程如下： Sub putdata(t_filename As String,t_str As Variant) Dim stile As String sfile＝".\"&& t filename Open App. Path && sfile For Output As #1 Print #1,t_str Close #1 End Sub ② 编写命令按钮的事件过程： Private Sub Command1_Click) Dim n,i As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=1 For i＝1 To n j＝j*i Next i Text1.Text＝j putdata "out3.txt",j End Sub ③ 运行程序，在inputbox对话框中输入数字“10”。 ④ 按试题要求保存窗体文件和工程文件。 2．① 建立界面和设置控件属性。 程序用到的控件及其属性如下表3所示。
② 编写程序代码。
参考代码：
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Driver1.Drive
End Sub
Private Sub File1_DblClick()
x＝Shell(Filel.FileName,1)
End Sub
③ 按题目要求存盘。
-
第4题：
在名称为Form1的窗体上建立两个命令按钮，名称分别为Command1和Command2、标题分别为“显示”和“删除”，一个名称为Pic1的图片框。要求程序运行后，每单击一次“显示”按钮，不使用任何变量而直接在图片框中显示“Picture1”；如果单击“删除”按钮，则清除图片框中的文本，如图6-1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为Sj1．vbp。正确答案：
命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。打印信息用Print方法，清除用Cls方法。
根据题意，新建“标准EXE”工程，在窗体中添加一个图片框控件和两个命令按钮，将两个命令按钮的Caption属性为“显示”和“删除”，然后双击Command1进入代码窗口，编写如下代码：
Private Sub Command1 Click 显示“Picture1”
Pic1．Print”Picture1”
End SubPrivate Sub Command2 Click 清除“Picture1”
Pic1．Cls
End Sub
单击
按钮运行程序，并按要求保存。
-
第5题：
在名为Form1的窗体上绘制一个图片框，名为Pic1，高为1800、宽为1600，通过属性窗口把考生目录下的图像文件pic1.bmp放到图片框中(如下图所示)。
注意：
文件必须存放在考生文件夹中，工程文件名为execise107.vbp，窗体文件名为 execise107.frm。
正确答案：
-
第6题：
在名为Form1的窗体上绘制一个文本框，名为Text1，无初始内容；再绘制—个图片框，名为Pic1。请编写Text1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如下图所示。
注意：
程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。
正确答案：
-
第7题：
请教:2016年计算机二级VB基础练习三简答题10如何解答?在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为Optionl和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为Listl)和一个文本框(名称为Textl)，如图l所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
步骤l：打开本题工程文件，并设置控件的属性。
-
第8题：
（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命令按钮，编写如下代码：
-
第9题：
在考生文件夹中有一个工程文件execise106.vbp及窗体文件execise106.frm。请在名为 Form1的窗体上绘制两个框架(如下图所示)，其名称分别为Frame1和Frame2，标题分别为“交通工具”和“到达目标”。在Fmme1中绘制两个单选按钮，名称分别为opt1和 opt2，标题分别为“飞机”和“火车”。在Frame2中绘制两个单选按钮，名称分别为Opt3和opt4，标题分别为“杭州”和“昆明”。绘制一个图片框，其名称为Pic1，宽度为2000，高度为5000。
注意：
不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的“关闭”按钮。最后按原文件名并在原文件夹中保存修改文件。
正确答案：
-
第10题：
在名为Form1的窗体上绘制一个名称为Pic1的图片框，并利用属性窗口把考生文件夹中的图标文件Open.ico放到图片框中；再绘制一个通用对话框控件，名为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word文档”，初始文件夹为C盘根文件夹。
编写适当的事件过程，使得在运行时，单击Pic1图片框，可以打开上述对话框。运行后的窗体如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise111.vbp，窗体文件名为execise111.fian。
正确答案：
-
第11题：
在考生目录下有一个工程文件sjt4．vbp。窗体上已有文本框Textl和图片框Picturel（两者位置重叠），并建立了菜单。要求单击“显示图片”菜单项时，隐藏文本框，在图片框中显示图片Pie4．bmp，同时将该菜单标题改为“清空图片”；单击“清空图片”菜单项时，清除图片框中的图片，同时将菜单标题改为“显示图片”；单击“显示文本”菜单项，则隐藏图片框，并将指定文件的内容显示在文本框中。在给出的窗体文件中已经有了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。
正确答案：【解题思路】设置控件的可见属性是Visible。根据条件设置相应的Visible属性。打开文件读取文件内容。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
-
第12题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计 rtx1中有多少个字符，将结果显示在Text1中。程序运行结果如图13-4所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。设计界面如图13-5所示。
正确答案：在窗体上建立好控件后先设置控件属性再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件LoadFile方法能将 RTF文件或文本文件装入控件其形 式如：对象.LoadFile 文件标志符[文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
'rtx1.? App.Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
' Text1.Text=?
End If
End Sub
参考代码：
Option Explicit
Private Sub Commandl_Click()
rtx1.LoadFile App. Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
Text1.Text=Len(rtx1.Text)
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件属性再编写事件过程
图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。
MouseUp事件再释放鼠标按钮时发生。其语法格式为：
PrivateSubobject_MouseUp([indexAsInteger]buttonAsIntegershiftAsIntegerxAsSingleyAsSingle)
Object一个对象表达式。
Index一个整数用来惟一地标识一个在控件数组中的控件。
Button返回一个整数用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)右按钮(位1)以及中间按钮(位2)的一个位字段。这些位的值分别等于12和4。其中仅有一位被设置指示出引起该事件的那个按钮Shift返回一个整数在button参数
指定的按钮被按下或者被释放的情况下该整数相应于SHIFTCTRL和ALT键的状态。某键被按下使得一个二进制位被设置。
shift参数是具有相应于SHIFT键(位0)CTRL键(位”以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于12和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置指示这些键中的一些、全部或者一个也没有被按下。解题步骤：
第一步：建立界面并设置控件属性。
第二步：编写程序代码。
程序提供的代码：
Private Sub Image1_MouseUp(Button As Integer Shift As Integer X As Single Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Imagel.Height=Imagel.Height+500
' Imagel.Width=Imagel.Width ? 500
End If
End If
'If Button=? Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
参考代码：
Private Sub Image1_MouseUp(Button As Integer Shift As Integer XAs Single Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End If
If Button=2 Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
在窗体上建立好控件后，先设置控件属性，再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件，LoadFile方法能将 RTF文件或文本文件装入控件，其形 式如：对象.LoadFile 文件标志符[，文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。
程序提供的代码：
Option Explicit
Private Sub Command1_Click()
'rtx1.? App.Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
' Text1.Text=?
End If
End Sub
参考代码：
Option Explicit
Private Sub Commandl_Click()
rtx1.LoadFile App. Path+"\sjt01.txt"
End Sub
Private Sub Command2_Click()
If rtx1.Text ＞ "" Then
Text1.Text=Len(rtx1.Text)
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程
图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。
MouseUp事件再释放鼠标按钮时发生。其语法格式为：
PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
Object一个对象表达式。
Index一个整数，用来惟一地标识一个在控件数组中的控件。
Button返回一个整数，用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于1，2，和4。其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，在button参数
指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT，CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。
shift参数是具有相应于SHIFT键(位0)，CTRL键(位”，以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于1，2，和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置，指示这些键中的一些、全部或者一个也没有被按下。解题步骤：
第一步：建立界面并设置控件属性。
第二步：编写程序代码。
程序提供的代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Imagel.Height=Imagel.Height+500
' Imagel.Width=Imagel.Width ? 500
End If
End If
'If Button=? Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
参考代码：
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, XAs Single, Y As Single)
If Button=1 Then
If Image1.Height4000 Or Image1.Width4000 Then
Image1.Height=Image1.Height+500
Image1.Width=Image1.Width+500
End If
End If
If Button=2 Then
If Image1.Height＞1000 Or Image1.Width＞1000 Then
Image1.Height=Image1.Height-500
Image1.Width=Image1.Width-500
End If
End If
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第13题：
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为 P1。请编写Text1的Chang事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。程序运行界面如图18-2所示。
注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
正确答案：时钟控件的Interval属性表示两个计时器事件之间的时间间隔其值以ms(0.001s)为单位题目要求每1秒产生一个计时器事件那么Interval属性应该设置为1000；窗体的标题由窗体的Caption属性设置。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-1。
第二步：调试并运行程序。
第三步：按题目要求存盘。
(2)当用户向文本框中输入新信息或当程序把Text属性设置为新值从而改变文本框的Text属性时将触发 Change事件。程序运行后在文本框中每键入一个字符就会引发一次Change事件。
在图片框中显示打印信息应使用Print方法其形式为：
[对象.] Print要显示的内容。解题步骤：
第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-2。
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Text1 Change()
P1.Print Text1.Text
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
时钟控件的Interval属性，表示两个计时器事件之间的时间间隔，其值以ms(0.001s)为单位，题目要求每1秒产生一个计时器事件，那么Interval属性应该设置为1000；窗体的标题由窗体的Caption属性设置。解题步骤： 第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-1。
第二步：调试并运行程序。
第三步：按题目要求存盘。
(2)当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变文本框的Text属性时，将触发 Change事件。程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。
在图片框中显示打印信息应使用Print方法，其形式为：
[对象.] Print要显示的内容。解题步骤：
第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-2。
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Text1 Change()
P1.Print Text1.Text
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第14题：
注意：下面出现的“考生文件夹”均为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文件。
正确答案：(1)在Visual Basic中菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息等待用户单击按钮并返回1个Integer告诉用户单击哪一个按钮。 语法：MsgBox(prompt[buttons][title][helpfilecontext]) MsgBox函数的语法具有以下几个命名参数： Prompt必需的。字符串表达式作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤： 第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。
第二步：编写程序代码。
参考代码：
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
第三步：调试并运行程序。
第四步：按题目要求存盘。
(1)在Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回1个Integer告诉用户单击哪一个按钮。 语法：MsgBox(prompt[，buttons][，title][，helpfile，context]) MsgBox函数的语法具有以下几个命名参数： Prompt必需的。字符串表达式，作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和，指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤： 第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。
第二步：编写程序代码。
参考代码：
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
第三步：调试并运行程序。
第四步：按题目要求存盘。
-
第15题：
在名为Form1的窗体上绘制一个名为Pic1的图片框，然后建立一个主菜单，标题为“操作”，名为vbOp，该菜单有两个菜单项，其标题分别为“显示”和“清除”，名称分别为 vbDis和vbClear。编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，则在图片框中显示VisualBasic；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为103.vbp，窗体文件名为103.frm。
正确答案：
-
第16题：
在考生文件夹中有一个工程文件execise104.vbp及窗体文件execise104.frm。在名为 Form1的窗体中有两个图片框，名称分别为P1和P2，其中的图片分别是一个航天飞机和一朵云彩；有一个计时器，名为Timer1有一个命令按钮，名为Cmd1，标题为“发射”。并给出了两个事件过程，但并不完整，要求：
(1)设置计时器的属性，使其在初始状态下不计时。
(2)设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。
(3)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达云彩的下方时停止移动，如下图所示。
注意：
不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第17题：
在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个标题为“计算”的命令按钮，1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1，初始内容为空的文本框，如图所示。程序功能：单击“计算”命令按钮，则计算“l!+2!+…+10!”的值，并将结果显示在Textl文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
正确答案：【解题思路】此题目主要是对While循环和For循环的考查，循环结构是指在满足循环条件时反复执行循环代码块，直到循环条件不能满足为止。一个循环语句一般应包含4个部分的内容。
初始化部分：设置循环控制的一些初始条件
循环体部分：反复执行的代码
迭代部分：修改循环控制条件
判断部分：判断是否继续执行循环体
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加一个TextBox控件，并按表4．8在属性窗口中设置相应属性，如图4．8所示。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -
第18题：
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件POINTl1(香蕉图标)装入图像框Image1中，如图3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。 要求：①通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2 1 ②运行时单击“保存文件”按钮，则以“保存对话框”方式打开该通用对话框。如图4所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：
【知识点拔】①窗体、图像框(ImageBox)和图片框(PictureBox) 上均可以显示来自位图、图标元文件、JPEG或GIF文件的图形。区别在于：图像框专门用于显示位图，而另外两种还提供了画图的功能。为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置：二是在程序运行时通过LoadPicture图片加载函数加载。②图片框作为一个容器，在图片框上可以再画图片框或者图像框。
【审题分析】本题只需按照要求画出控件并设置属性即可，注意图像框要画在图片框内部。
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表1-14在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【审题分析】通用对话框的默认文件名由FileName属性设置，标题由DialogTitle属性设置。本题可在“保存文件”的单击事件过程中，用语句通过调用通用对话框的ShowSave方法或通过设置其Action属性值为2，使其以“保存对话框”方式打开。
【操作步骤】
步骤1：新建一个“标准EXE”工程，选择【工程】->【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common
Dialog Cortlrol6．0”项目，单击“确定”按钮。
步骤2：在窗体Form1上画一个通用对话框和一个命令按钮，其相关属性设置如表1-15所示。
-
第19题：
在考生文件夹下有文件in15.txt，文件中有几行汉字。请在Form1的窗体上绘制一个文本框，名称为Text1；能显示多行；再绘制一个命令按钮，名称为Cmd1，标题为Save。编写适当的事件过程，使得在加载窗体时，把in15.txt文件的内容显示在文本框中，然后在文本的最后面手工插入一行字：“计算机等级考试Visual Basic。”如下图所示。最后单击．Save按钮，可以把文本框中修改过的内容存到文件out15.txt中。
注意：
只能在最后面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以 execise15.vbp为文件名存储工程文件，以execise15.frm为文件名存储窗体文件。
正确答案：
-
第20题：
在考生文件夹中有工程文件execise92.vbp及窗体文件execise92.frmo在名为Form1的窗体中有一个Rich Text文本框控件(名称为rtx1)，一个文本框控件(名称为Text1)，两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为“加入92.TXT”和“统计字符个数”)，如下图所示。
要求程序运行后，单击“加入92.TXT按钮将考生文件夹中的92.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计Text1中有多少个字符并将结果显示在Text1中。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第21题：
在名为Form1的窗体上建立一个名为Pic1的图片框，两个名称分别为Cmd1和Cmd2的命令按钮，标题分别为Print和Clear，如下图所示。编写适当的事件过程，要求程序运行后，每单击一次Print按钮，不使用任何变量，直接在图片框中显示“计算机等级考试”；如果单击Clear按钮，则清除图片框中的内容。
注意：
文件必须存放在考生文件夹中，窗体文件名为execise3.frm，工程文件名为execise3.vbp。
正确答案：
-
第22题：
在Form1的窗体上绘制一个图片框，其名称为Pic1。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(250，500)位置处开始显示Visual Basic。程序运行情况如下图所示。
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise18.vbp，窗体文件名为execise18.frm。
正确答案：
-
第23题：
在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为“答案1”、“答案2”、“答案3”和“答案4”；再画一个命令按钮，名称为C1，标题为“选择”；再画一个文本框Text1，名称为Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案1”单选按钮时，在Text1文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图2—1所示。
注意，保存时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：
在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题
为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
正确答案：① 对象主要属性设置如表3所示。
② 分析：按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮并分别将它们的属性按表3的内容进行设置。单选按钮是否被选取由其Value属性来确定当Value值为True时表示单选按钮被选取否则未被选取根据题意只有选择了Op1(0)单选按钮将字符串“选择正确”赋给Text1.Text否则将字符串“选择错误”赋给了Text1.Text。
③ 编程代码：
Private Sub C1_Click()
If Op1(0).Value=True Then
Text1.Text＝"选择正确"
Else
Text1.Text＝"选择错误"
End If
End Sub
2．① 试题提供的程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
'For i＝Text1.Text To?
'j＝?+i
Next i
Text3.Text＝j
End Sub
② 要完成两个数之间所有整数的累加需要使用循环结构来读取两个数之间所有的整数然后将每一个整数累加到一个变量中。
③ 修改后的程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i＝Text1.Text To Text2.
Text
j=j+i
Next i
Text3.Text＝j
End Su
① 对象主要属性设置如表3所示。
② 分析：按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮，并分别将它们的属性按表3的内容进行设置。单选按钮是否被选取由其Value属性来确定，当Value值为True时，表示单选按钮被选取，否则未被选取，根据题意，只有选择了Op1(0)单选按钮，将字符串“选择正确”赋给Text1.Text，否则将字符串“选择错误”赋给了Text1.Text。
③ 编程代码：
Private Sub C1_Click()
If Op1(0).Value=True Then
Text1.Text＝"选择正确"
Else
Text1.Text＝"选择错误"
End If
End Sub
2．① 试题提供的程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
'For i＝Text1.Text To?
'j＝?+i
Next i
Text3.Text＝j
End Sub
② 要完成两个数之间所有整数的累加，需要使用循环结构来读取两个数之间所有的整数，然后将每一个整数累加到一个变量中。
③ 修改后的程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i＝Text1.Text To Text2.
Text
j=j+i
Next i
Text3.Text＝j
End Su
