首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时
admin
2009-02-25
25
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:在名称为Forml的窗体上有三个Label控件和两个名称分别为COMSTART、 COMEXIT,标题分别为“开始”和“退出”的命令按钮。编写函数Item(A,N),其功能是由数字A组成的不多于N位数的整数,利用该函数求8888-888-88-8的值并把结果写入考生文件夹下的sjt5.dat文件中。执行完毕“确定”按钮,变成“完成”,且无效。如图10-6所示。
选项
答案
控件是否可用由其Enable属性设置,当Enable为True时控件可用,当Enable为False时控件不可用(灰色):命令按钮的标题由Caption属性设置:Str$函数将数字转换为字符串。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性值见表10-4。 [*] 程序提供的代码: Option Explicit Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART Click() Dim A As Integer, N As Integer, J As Integer, Sum As Single A= 8: N= 4 For J = N To 1 Step -1 If J = N Then Sum = Item (A, J) Else Sum = Sum - Item(A, J) End If Next Print "Sum="; Sum Open App. Path & "\" & "sjt5.dat" For Output As #1 Print #1, Sum Close #1 ’?.Caption = "完成" ’COMSTART. ? = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = "" For i = 1 To k Q$ =Str$ (A) pS = pS + Q$ Next i ’? = Val(PS) ’H = ? + S Item = H End Function 参考代码: Option Explicit Private Sub COMEXIT Click() End End Sub Private Sub COMSTART Click() Dim A As Integer, N As Integer, J As Integer, Sum As Single A= 8: N = 4 For J = N To 1 Step -1 If J = N Then Sum = Item(A, J) Else Sum = Sum - Item(A, J) End If Next Print "Sum="; Sum Open App. Path & "\" & "sjtS.dat" For Output As #1 Print #1, Sum Close #1 COMSTART.Caption = "完成" COMSTART.Enabled = False End Sub Function Item(A, k) Dim P As String, Q As String, S As Single Dim i As Integer, H As Single p = "" For i = 1 To k Q$ = Str$ (A) PS = PS + Q$ Next i S = Val (PS) H = H + S Item = H End Function 第二步:调试并运行程序。 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Uh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设执行下面的赋值语句:A=Float.valueOf("12.34").floatValue();后,a的值是()。
下列命令中,属于Java编译命令的是()。
Java程序的执行过程中用到一套JDK工具,其中jbD.exe是指()。
面向数据流的设计方法可以直接把数据流图映射成软件结构。对于变换流,除了输入模块、变换模块和输出模块外还需要一个()。
下面程序段的输出结果是classBase{inti;Base(){add(1);}voidadd(intv){
下面语句会产生编译错误的是
E-R数据模型一般在数据库设计的______阶段使用。
运行下列程序,会产生什么结果?()publicclassXexlendsThreadimplementsRunable{publicvoidrun(){System.out.println
在Java语言中,类按照程序设计所需要的常用方法和接口封装成【】。
有一个接口定义如下:interfaceA{intmethod1(inti);intmethod2(intj);}那么下面各项中实现了该接口并且不是抽象类的是()。
随机试题
________主张的“政策议题网络”。()
街头赠阅和邮寄赠阅的送达方式是()
一患者戴用全口义齿1年,一直未吃硬性食物。小心谨慎使用。但上总义齿仍裂开,查:上总义齿前份正中折裂。固位好。腭侧基托厚2mm,腭中缝较平,造成义齿折裂的主要原因是
(2007年)热能转换成机械能的唯一途径是通过工质的体积膨胀,此种功称为容积功,它可分为()。
对逻辑表达式的化简结果是()。
业主将一个建设项目的所有工程设计任务一次性全部委托给一个设计单位或由几个单位组成的联合体(合作体),此种模式是( )。
儿童画没有原始艺术的那些历史复载,但在形式体验上有许多相似之处。儿童有一种未被扭曲的直觉,充满好奇心和新鲜感,能够将自己感兴趣的特征强烈地表现出来。儿童凭感性作画,直取主要印象,还有那无拘无束的想象力。早期的儿童是自我中心主义者,儿童毫不顾忌地表现自己的感
民事、行政枉法裁判罪的主体有()。
Couldthebadolddaysofeconomicdeclinebeabouttoreturn?SinceOPECagreedtosupply-cutsinMarch,thepriceofcrudeoil
Apsychologicalissuethatbegantobediscussedinthe1950swasthequestionofthemostappropriateageforsecondlanguagel
最新回复
(
0
)