niusouti.com
在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2
题目
在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件和文件名。
相似考题
更多“ 在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一”相关问题
-
第1题：
（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命令按钮，编写如下代码：
-
第2题：
在考生文件夹中有一个工程文件execise94.vbp及窗体文件execise94.frm。请在名为 Form1窗体上绘制两个框架，其名称分别为Frame1和Frame2，标题分别为“交通工具”和“到达目标”。在Frame1中绘制两个单选按钮，名称分别为Opt1和Opt2，标题分别为“飞机”和“火车”。在Frame2中绘制两个单选按钮，名称分别为Opt3和Opt4，标题分别为“上海”和“西安”。然后绘制一个命令按钮，其名称为Cmd1，标题为“确定”。再绘制一个文本框，其名称为Text1。
编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表。
注意：
不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的“关闭”按钮。按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第3题：
在窗体上画一个名称为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
-
第4题：
在考生文件夹中有工程文件execise92.vbp及窗体文件execise92.frmo在名为Form1的窗体中有一个Rich Text文本框控件(名称为rtx1)，一个文本框控件(名称为Text1)，两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为“加入92.TXT”和“统计字符个数”)，如下图所示。
要求程序运行后，单击“加入92.TXT按钮将考生文件夹中的92.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计Text1中有多少个字符并将结果显示在Text1中。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第5题：
在考生文件起下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为 Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的故值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框．输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。 程序运行时的窗体界面如图5-3所示。
注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。正确答案：
本题主要考查考生对For循环、文本框内容的显示和InputBox函数的理解。
InputBox函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(PromptE，Title][，Default])。其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入眶的标题栏上显示；Default字符串为输入框的缺省文本。
根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称分别为Command1和Command2、Caption属性分别为“大写A”和“小写a”。双击Corn—mand1讲入代码窗口，补充后的代码如下．
Private Sub Command1Click
Dim a As Integer
Dim str As String
Dim i As Integer
a=Val(InputBox("输入个数")) '读取输入的个数
str=""
For i=1 To a
str=str+"A" '循环写入大写字母“A”
Next i
Text1．Text=str'在Text1中显示结果
End Sub
Private Sub Command2 Click
Dim a As In,eger
Dim str As String
Dim i As Inleger
a=Val(InputBox("输入个数")) '读取输入的个数
str=""
For i=1 To a
str=str+"a" '循环写入小写字母“a”
Next i
Text1．Text=str'在Text1中显示结果
End Sub
单击
按钮运行程序，并按要求保存。
