在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。请在有“”的地方填入正确内容,然后删除“”及代码前的所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个名称为Command1、标题为“求和”的命令按钮,3个名称分别为Text1、Text2和Text3的文本框,运行界面如下图所示。要求程序运行后,在Text1和Text2中分别输入两个整数,单击“求和”按钮后,可把两个整数之间的所有奇数(不含输入的两个整数)累加起来并在Text3中显示。
参考答案:看一个数是否为奇数,只要判断此数是否能被2整除,若不能整除,则是奇数,否则不是奇数。如N Mod 2=0则说明余数为0,N能被2整除,否则N不能被2整除。
根据题意将一个命令按钮和3个文本框控件添加到窗体中,命令按钮的名称属性为Command1、Caption属性为“求和”,3个文本框的名称分别为Text1、Text2和Text3,然后双击Command1进入代码窗口,补充后的具体代码如下:
Private Sub Command1_Click()
Dim total As Long
Dim min AS Integer
Dim max As Integer
Dim a As Integer
min=Text1.Text ’Text1输入的整数
max=Text2.Text ’Text2输入的整数
total=0
For a=min+1 To max-1 ’循环操作
If a Mod 2=1 Then ’判断是否为奇数
total=total+a ’进行相加操作
End If
Next a
Text3.Text=total ’将得到的数输出到文本框3
End Sub
单击
按钮运行程序,并按要求保存。