首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
admin
2009-02-25
97
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗口中有三个Labe1控件和两个名称分别为COMSTART和COMEXIT,标题分别为“开始”和“退出”的命令按钮。要求程序运行后,单击“开始”按钮后,能将下面给出的三角形写入考生文件夹下的 picture.dat文件中;执行完毕“开始”按钮,变成“完成”,且无效(变灰)。程序运行界面如图10-4所示。
A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B
(2)在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗口中有一个名称为Command1,标题为“读取字型”的命令按钮,一个名称为Combol的下拉组合框和一个提示标签Label1。要求程序运行后,单击“读取字型”按钮读取系统的字型,在Combo1中显示。
如图10-5所示。
选项
答案
(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮的标题由其Caption属性设置,单击命令按钮触发其Click事件;标签的Caption属性用来显示其内容:程序用到String$函数。 String函数返回Variant(String),其中包含指定长度重复字符的字符串。 语法:String(number,character) String函数的语法有下面的命名参数: number必要参数;Long。返回的字符串长度。如果number包含Null,将返回Null。 character必要参数;Variant。为指定字符的字符码或字符串表达式,其第一个字符将用于建立返回的字符串;解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表10-3。 [*] 第二步:编写程序代码。 程序提供的代码: Private Sub COMEXIT Click() End End Sub Private Sub COMSTART Click() Dim A(4) As String Dim B(4) As String Dim k As Integer, 1 As Integer myfilel =App. Path& "\" & "picture.dat" Open myfilel For Output As #1 For k = 1 To 4 ’A(?) = StringS(?) ’B(?) = StringS(?) Next k For k = 1 To 4 ’Print #1, ? Next k For k = 4 To 1 Step -1 ’ Print #1,? Next k Close 91 ’COMSTART.? = "完成" ’COMSTART.Enabled = ? End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim A(4) As String Dim B(4) As String Dim k As Integer, 1 As Integer myfilel =App.Path& "\" & "picture.dat" Open myfilel For Output As 91 For k = 1 To 4 A(k) = String$(k * 2 - 1, "A") B(k) = String$(k * 2 - 1, "B") Next k For k = 1 To 4 Print #1, A(k) Next k For k = 4 To 1 Step -1 Print #1, B(k) Next k Close #1 COMSTART.Caption = "完成" COMSTART.Enabled = False End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 程序里用的Screen.Font是系统的字型(类似一个字型数组),Screen.FontCount是系统字型的个数,其下标从0开始的,所以最后一个下标是Screen.FontCount-1。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub Commandl Click() Dim I As Long ’ For I=0 To ? -1 ’ Comb01.Addltem? Next End Sub 参考代码: Private Sub Command1_Click() Dim I As Long For I=0 To Screen.FontCount -1 Combol.Addltem Screen.Fonts(I) Next End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0h1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java程序结构中,源文件与程序公共类()。
Java程序中定义接口所使用的关键字是________。
对于下面语句的说法,不正确的是ThreadthrObj=newThread();
下面语句会产生编译错误的是
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
下面的表达式中正确的是()
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
随机试题
EatinghabitsEatinghabitschangefromgenerationtogeneration.Beforescientistslearnedaboutvitaminsandotherconstitu
晚期产后出血是指分娩多长时间后,在产褥期内发生子宫大量出血
2014年4月21日,从新疆霍尔果斯海关辑私分局获悉:该局于近日查获一批走私人境的羚羊角和穿山甲,涉案价值达7053万元。这也是霍尔果斯海关今年查获的最大一起野生动物产品走私案。羚羊角属于
以下说法错误的是哪个选项?()
在一定条件下,已建立平衡的某可逆反应,当改变反应条件使化学平衡向正反应方向移动时,下列有关叙述正确的是()。
下列车船中,以整备质量吨位数为车船税计税依据的有()。
甲向国家知识产权局提出发明专利申请,要求保护一种智能手表,申请日为2016年7月18日,以下关于宽限期的说法正确的是?
在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:PrivateSubCommand1_Click()a=0:b=5:c=6MsgBoxa=b+cEndSub窗体打开运行后,如果单击命令按钮,则消息框的输出结果为
TheLakeDistrict,whichiswell-knownforitsbeautifulscenery,islocatedinthe
ComparingtheTOEFL,IELTS,andTOEICTestsThreepopularstandardizedtestsofEnglisha)TOEIC-tests【T1】______ininternat
最新回复
(
0
)