2. 计算机
  3. (1)新建一个工程文件，在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl、标题为“计算”的命令按钮。要求程序运行后，在Textl输入一个整数，单击“计算”按钮后，则把0到这个整数之间所有能被3整除的数累加起来并在Text2

(1)新建一个工程文件，在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl、标题为“计算”的命令按钮。要求程序运行后，在Textl输入一个整数，单击“计算”按钮后，则把0到这个整数之间所有能被3整除的数累加起来并在Text2

admin2010-07-13  57
问题 (1)新建一个工程文件，在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl、标题为“计算”的命令按钮。要求程序运行后，在Textl输入一个整数，单击“计算”按钮后，则把0到这个整数之间所有能被3整除的数累加起来并在Text2中显示出来，如图58—3所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为si3．vbp。
    (2)在考生文件夹下有一个工程文件sj4．vbp，在名称为Forml的窗体上有两个名称分别为Commandl和Command2、标题分别为“相加”和“清空”的命令按钮，一个名为Textl的文本框。要求程序运行后，单击“相加”按钮，可通过输入对话框输入两个整数，并将两数相加后的结果在Text1文本框中显示出来。如果单击“清空”按钮，则把Textl文本框清空。程序运行时的窗体界面如图58—4所示。

    注意：请去掉程序中的注释符“’”，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案 (1)根据题意，新建“标准EXE”工程，将一个命令按钮和两个文本框控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“计算”，文本框的名称分别为Textl和Text2、Text属性都为空。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim n As Integer Dim total As Long Dim i As Integer total=0 n=Val(Textl．Text) ’读取Textl中的数据 For i=0 To n’For循环遍历O～n的数 If i Mod 3=0 Then total=total+i’如果能被3整除，则相加 End If Next i Text2．Text=total’在Text2中显示结果 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查考生使用InputBox()函数。InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为： InputBox(Prompt[，Title][，Default]) 其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省文本。本题补充后的代码如下： Private Sub Commandl_Click() Textl．Text=Val(InputBox("请输入"))+Val(InputBox("请输入")) ’将输入的两个数相加的结果显示在 Textl中 End Sub Private Sub Command2_Click() Textl．Text=""’清空文本框 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/yLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)