问题
问答题
在窗体上画一个名称为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所示。
| 对象 | 对象名 | 属性名 | 属性值 |
| 窗体 | Form1 | Caption | Form1 |
| 命令按钮 | C1 | Caption | 选择 |
| 文本框 | Text1 | ||
| 单选按钮 | Op1(0) | Caption | 答案1 |
| 单选按钮 | Op1(1) | Caption | 答案2 |
| 单选按钮 | Op1(2) | Caption | 答案3 |
| 单选按钮 | Op1(3) | Caption | 答案4 |
③ 编程代码：
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 Sub