首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不
admin
2009-02-25
45
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有三个Label控件和两个名称分别为 COMSTART和COMEXIT,标题分别为“开始”和“退出”的命令按钮。编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数,并利用该函数求8+88+888+8888的和结果写入考生文件夹下的sjt5.dat文件中。执行完毕后,“开始”按钮变成“完成”,且无效(变灰)。如图9-6所示。
选项
答案
控件在运行时是否可用由Enabled属性设置。当Enabled为True时,控件在运行时可用,当Enable为False时,控件在运行时不可用(灰色);单击命令按钮触发其Click事件,其标题由Caption属性设置;Str$函数将数字转换为字符串。 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表9-3。 [*] 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 = 1 To N Sum = Sum + Item(A, J) Next J 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) p$ = p$ + Q$ Next i ’? = Val(P$) ’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 = 1 To N Sum = Sum + Item(A, J) Next J Print "Sum="; Sum Open App. Path & "\" & "sjt5.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) P$ = P$ + Q$ Next i S = Val (P$) H = H + S Item = H End Function 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/1Oq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段后:a=________,b=__________。inta=5,b;b=++a*3;
对于下面语句的说法,不正确的是ThreadthrObj=newThread();
下面语句会产生编译错误的是
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
下面说法不正确的是()
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
随机试题
注射模的主流道始端凹球半径_________注射机喷嘴头部球面半径
下述疾病最可能出现的临床表现A、个别牙着色B、遇冷、热痛C、牙体实质缺损D、多数牙着色E、牙齿松动牙隐裂
现代麻醉学包括
下列哪些内容是一、二级声环境评价共有的基本要求?()
常规控制图的设计思想是()。
2014年4月15日,中央国家安全委员会主席习近平指出,当前我国国家安全内涵和外延比历史上任何时候都要丰富,时空领域比历史上任何时候都要宽广,内外因素比历史上任何时候都要复杂。必须坚持总体国家安全观……走出一条中国特色国家安全道路。其中,要以()为
根据下面材料回答下题。在上表中,新浪微博粉丝数量最少的应用与腾讯微博粉丝数量最少的应用,两者的共同之处是()。
设二阶连续可导,又因为,当x>0时,求f(x).
AreyouconsideringtravelingtoanativeEnglishspeakingcountrytoimproveyourEnglishlanguagesskillsatalanguagescho
His________ingamblinghaseventuallybroughtabouthisruin.
最新回复
(
0
)