首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮,三个名称分别为Textl、Text2和Text3的文本框,运行界面如图65—4所示。要求程序运行后,在
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮,三个名称分别为Textl、Text2和Text3的文本框,运行界面如图65—4所示。要求程序运行后,在
admin
2010-07-13
69
问题
(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的。在窗体上有一个名称为Commandl、标题为“求和”的命令按钮,三个名称分别为Textl、Text2和Text3的文本框,运行界面如图65—4所示。要求程序运行后,在Textl和Text2中分别输人两个整数,单击“求和”按钮后,可把两个整数之间的所有奇数(不含输入的两个整数)累加起来并在Text3中显示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。在窗体上建立一个名称为Textl的文本框,建立一个名称为Commandl、标题为“计算”的命令按钮,如图65—5所示。要求程序运行后,如果单击“计算”按钮,则求出50—200之间所有可以被5整除的数的总和,在文本框中显示出来,并把结果存入考生文件夹下的out.txt文件中。(在考生的文件夹下有一个mode.bas标准模块,该模块中提供了保存文件的过程writedata,考生可以直接调用。)
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)看一个数是否为奇数,只要判断此数是否能被2整除,若不能整除,则是奇数,否则不是奇数。如:N Mod 2=0,则说明余数为0,N能被2整除,否则N不能被2整除。 根据题意将一个命令按钮和三个文本框控件添加到窗体中,命令按钮的名称属性为Commandl、Caption属性为“求和”,三个文本框的名称分别为Textl、Text2和Text3,然后双击Commandl进入代码窗口,补充后的具体代码如下: Private Sub Commandl_Click() Dim total As Long Dim min As Integer Dim max As Integer Dim a As Integer min=Textl.
Text
’Textl输入的整数 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 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称Commandl、Caption属性为“计算”,文本框的名称为Textl,本题是为了求50~200之间的能被5整除的数的和,显示到文本框中并保存到OUt.txt中。在“工程”窗口中单击右键,在弹出的快捷菜单中选择“添加”→“添加模块”,然后在弹出对话框的“现存”选项卡中选择“mode.bas”,单击“确定”按钮即添加成功。模块mode.bas中的代码如下: Function writeData(total As Long) ’将数据保存到out.txt中 Open App.Path&"\out.txt"For Output As#1’打开文件 Write#1,total’进行写入 Close#1 End Function 双击Commandl进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() Dim total
As Long
Dim n
As Integer
total=0 For n=50 To 200’循环操作 If
n Mod 5=0
Then’判断是否能被5整除
total=total+n
’进行相加操作 End If Next n Textl.
Text
=total’在Textl中显示出来 writeData(total) ’写入OUt.txt文件中 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/4Lmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段的输出结果是()。classBase{inti;Base(){add(1);}voidadd(intV){i+=v;}Voidphnt()
下面代码段的输出是()。if(5&7)0&&5|2)system.out.println("true");
关于内存变量的调用,下列说法中正确的是()。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
数据库的故障恢复一般是由( )。
下面Applet在窗口中实现一个不可编辑的TextField,并且显示“ok”。在横线处填入正确的语句。importjava.applet.Applet;importjava.awt.t;publicclassTestextendsApp
在Java语言中的实数,如数字后没有任何字母,计算机默认其为【】类型。
算法复杂度主要包括时间复杂度和______复杂度。
下列基本命令中,属于类文件分解器命令的是
在模块化程序设计中,按功能划分模块的原则是
随机试题
Whatisthetotalnumberofintegersbetween100and200thataredivisibleby3?
26岁患者,因胎膜早破行会阴侧切术分娩产后10天,出现寒战、高热,体温达39℃,下腹部疼痛,恶露淡血性浑浊,有异味,妇科检查冰冻骨盆,且有明显压痛,最可能的诊断是
患者,男,20岁。1小时前被刀刺伤来诊,BP60/50mmHg,面色苍白,呼吸困难,颈静脉怒张,呼吸音尚好,心音遥远,创口在左锁骨中线第4肋间。最可能的诊断是
下列关于零基预算的说法中,正确的有()。
()不属于对劳动力需求模型修正的理论。
1962,中共中央调整计划目标,工业生产值原定950亿元调为880亿元,钢产量755万吨调为600万吨,并按“经济合理,保留骨干的原则,对企业关停并转。这举措目标
80286在保护模式下的虚拟空间大小以及实际地址空间大小分别是( )。
磁盘格式化时,被划分为一定数量的同心圆磁道,软盘上最外圈的磁道是
(1)ThemysteryoftheexpansionofseaicearoundAntarctica,atthesametimeasglobalwarmingismeltingswathsofArcticse
Scientistsfindthathard-workingpeoplelivemuchlongerthanaveragemenandwomen.Careerwomenarehealthierthanhousewives
最新回复
(
0
)