首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的。请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的。请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存
admin
2009-02-25
50
问题
注意:下面出现的“考生文件夹”均为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://kaotiyun.com/show/Wh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java程序的执行过程中用到一套JDK工具,其中jbD.exe是指()。
下面语句会产生编译错误的是
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下面的表达式中正确的是()
结构化设计方法(SD)与结构化分析方法(SA)一样,遵循______模型,采用逐步求精技术,SD方法通常与SA相联,即依据数据流图设计程序的结构。
下面各选项中正确的是()。Ⅰ:longl=4990Ⅱ:inti=4LⅢ:floatf=1.1Ⅳ:doubled=34
有一个接口定义如下:interfaceA{intmethod1(inti);intmethod2(intj);}那么下面各项中实现了该接口并且不是抽象类的是()。
随机试题
关于习近平生态文明思想,下列说法正确的是()。
患者,女,行子宫肌瘤剥除术后,阴道常有液体排出,为明确尿瘘患者的瘘孔部位,可进行的检查应除外
人类最初的造血中心是
邵某、孙某。朱某各出资5万元合伙开设一模具加工厂,经营一段时间后,邵某退伙,由唐某出资顶替邵某入伙。邵某退伙时,该加工厂账目未加清算。后因经营管理不善亏损,对外负债高达10万元,则邵某对该合伙企业债务的处理为()。
下列表述中,不属于现金流量表特点的是()。
甲酒店想加盟另一个叫KJ的酒店的项目。期限8年,相关事项如下:(1)初始加盟保证金10万元,初始加盟保证金一次收取,合同结束时归还本金(无利息)(2)初始加盟费按照酒店房间数120间计算.每个房间3000元。初始加盟费一次收取;(3)每年特许经营费按
教育法规定,中华人民共和国公民有受教育的__________。
专家认为,家庭氛围不和谐、缺少父母关爱是导致青少年出现心理精神问题,继而迷上网游的原因之一。家庭是孩子体验情感、发展情商的关键场所。如果家庭不能给孩子提供需要的安全感、尊重、亲密与爱,孩子很有可能在网游中逃避恐惧和孤独,寻求安慰。忙于工作的父亲和爱批评唠叨
Theideaisasaudaciousasitaltruistic:provideapersonallaptopcomputertoeveryschoolchild—particularlyinthepoorestp
Women’smindsworkdifferentlyfrommen’s.Atleast,thatiswhatmostmenareconvincedof.Psychologistsviewthesubjecteith
最新回复
(
0
)