首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时
admin
2009-02-25
113
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
给出下列代码片段:if(x>0){System.out.println("first");}elseif(x>-3){System.out.println("second");}else{System.out.println("t
软件危机爆发之后,荷兰科学家Bijkstra1968年提出了一种新的程序设计思想,它就是()。
面向数据流的设计方法可以直接把数据流图映射成软件结构。对于变换流,除了输入模块、变换模块和输出模块外还需要一个()。
执行以下程序段后:a=________,b=__________。inta=5,b;b=++a*3;
Java程序中,用关键字________修饰的常量对象创建后,就不能修改了。
定义一个表示10个值为null的字符串数组、下面选项正确的是
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={67
要从文件“file.dar”文件中读出第10个字节到变量C中,下列哪个方法适合()
下面ChangeTitle()中对b1和b2按钮构造监听器,实现当单击b1按钮时标题变为students,当单击b2按钮时标题变为teachers。请将程序补充完整。publicChangeTitle(){super("Title
下面哪个选项正确示例了传递一个参数给applet?()
随机试题
(2006年第19题)下列药物或毒物中,可阻断N型胆碱能受体的物质是
下列哪项不是慢性肾小球肾炎的临床表现
记账凭证必须附有原始凭证,更正错误的记账凭证可以不附原始凭证。()
保险公司应当在划扣首期保费()小时内,或未划扣首期保费的在承保()小时内,以保险公司名义,通过手机短信、微信、电子邮件等方式,提示投保人。
人类社会生产的最终目的和动力是。
所谓(),就是根据政府的既定目标,通过中央银行对货币供给的管理来调节信贷供给和利率,以影响宏观经济活动水平的政策。
请从所给的选项中,选择最适合的一个填入问号处,使之呈现一定的规律性:
加强党的建设,必须始终放在首位的是()
4台Linux主机通过如图5-2所示的方式互联,则实现PC1与PC4之间互访的步骤为:1.运行(61)命令关闭计算机,在PC2与PC3上添加第二块网卡(eth1),重新启动;2.在PC2与PC3上为第二块网卡分配IP地址,并激活该网络接口,对于PC3
A、Itisdestroyingtherobotsindustryatlarge.B、Itisawayofservingtheusers.C、ItisawasteofGoogle’smoney.D、It’sn
最新回复
(
0
)