1. 在窗体上画一个名称为Op1的单选按钮控件数组,其包含4个单选按钮,Index值从0到 3,标题分别为“答案1”、“答案2”、“答案3”和“答案4”;再画一个命令按钮,名称为C1,标题为“选择”;再画一个文本框Text1,名称为Text1,内容为空白。

admin2009-03-17  23

问题 1. 在窗体上画一个名称为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

解析
转载请注明原文地址:https://jikaoti.com/ti/SWq0FFFM
0

最新回复(0)