2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

admin2009-02-25  62
问题 注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
   (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下：
   在窗体上有3个名称分别为Text1、Text2和Text3的文本框，一个名称为C1，标题为“计算”的命令按钮，如图4-4所示。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含两个整数)累加起来并在Text3中显示。
   (2)在窗体上建立一个名称为Text1的文本框，建立一个名称为Cmd1，标题为“计算”的命令按钮，如图4-5所示。要求程序运行后，如果单击“计算”按钮，则求出100-200之间所有可以被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt文件中。  (在考生的文件夹下有一个 mode.bas标准模块，该模块中提供了保存文件的过程putdata，考生可以直接调用。)
   注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm。工程文件名为sjt4.vbp，结果存入out.txt文件。
选项
答案(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 要使文本框中的字符用于算术运算，首先要利用Val将文本框中输入的数字字符转换为数字类型(文本框中的内容默认为字符串类型)。解题步骤： 第一步：建立界面并设置控件属性。 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim i As Integer，s As Integer Dim a As Integer，b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a＞b Then i = a a = b ’ b = ? End If s = 0 For i = a To b ’ s = s + ? Next i Text3.Text = s End Sub 参考代码： Option Explicit Private Sub C1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a ＞ b Then i = a a = b b = i End If s = 0 For i = a To b s = s + i Next i Text3.Text = s End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件：在文本框中显示内容通过其Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表4-3。 [*] 第二步：编写程序代码。 标准模块代码： Option Explicit Sub putdata(t_FileName As String，t_Str As Variant) Dim SFile As String SFile ="\" & t FileName Open App.Path & SFile For Output As #1 Print #1， t Str Close #1 End Sub 参考代码： Private Sub Cmd1_CliCk() Dim temp As Long Dim i As Integer For i = 100 To 200 If i Mod 3 = 0 Then temp = temp + i End If Next Text1.Text = temp putdata "out.tXt"，temp End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/Wh1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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