首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
admin
2009-02-25
102
问题
注意:下面出现的“考生文件夹”均为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语言中,将后缀名为_________的源代码文件编译后形成后缀名为.class的字节码文件。
Java程序中,用关键字________修饰的常量对象创建后,就不能修改了。
对于下面语句的说法,不正确的是ThreadthrObj=newThread();
定义一个表示10个值为null的字符串数组、下面选项正确的是
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
要从文件“file.dar”文件中读出第10个字节到变量C中,下列哪个方法适合()
运行下列程序,会产生什么结果?()publicclassXexlendsThreadimplementsRunable{publicvoidrun(){System.out.println
下面说法不正确的是()
随机试题
A.推动作用B.温煦作用C.防御作用D.固摄作用E.气化作用人的生长发育靠气的
腹痛的临床辨证,应明辨()该病例中医辨证为()
某企业属于大型冶金工业企业。报告年度平均资产总额为20000万元,当年实现利润总额为1000万元,利息支出为600万元。假设总资产报酬率的指标权数为13分,有关资料如下表:根据上述资料计算该企业总资产报酬率的基础分值为()
(2009年考试真题)某股份有限公司按法定程序报经批准后采用收购本公司股票方式减资,购回股票支付价款低于股票面值总额的,所注销库存股账面余额与冲减股本的差额应计入()。
2012年10月诺贝尔文学奖揭晓,中国作家莫言获此殊荣。莫言的代表作有《丰乳肥臀》、《生死疲劳》、《蛙》和()等。
社会治安综合治理是()。
在C程序中,若表达式中的算术运算对象的类型不同,则需要先统一为相同类型后再进行计算。例如,表达式“a-b”中,若a是双精度浮点型变量,b是整型变量,为了尽可能保证运算精度,通常进行的处理是______。
局域网在网络拓扑上主要采用了星型、环型和【 】结构。
(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,它们的高、宽分别为300、2400和1200、2400。窗休的标题为“窗口”。请通过属性窗口设置适当的属性,满足如下嘤求:(1)Text2可以显示多行文本,并且有垂
A、B、C、D、D
最新回复
(
0
)