[问答题] 在窗体上画一个名称为Op1的单选按钮控件数组，其包含4个单选按钮，Index值从0到 3，标题分别为“答案1”、“答案2”、“答案3”和“答案4”；再画一个命令按钮，名称为C1，标题为“选

[问答题] 在窗体上画一个名称为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对象对象名属性名属性值窗体Form1CaptionForm1命令按钮C1Caption选择文本框Text1单选按钮Op1(0)Caption答案1单选按钮Op1(1)Caption答案2单选按钮Op1(2)Caption答案3单选按钮Op1(3)Caption答案4 ② 分析：按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮，并分别将它们的属性按表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 Sub2．① 试题提供的程序如下： 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