首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他其他部分
admin
2009-02-25
34
问题
注意:下面出现的“考生文件夹”均为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程序中定义接口所使用的关键字是________。
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={67
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
要从文件“file.dar”文件中读出第10个字节到变量C中,下列哪个方法适合()
随机试题
商标法体现的基本原则有()。
在Excel2010中,将C列右边界向左拖动,则____________。
患者,女性,43岁。右上腹反复疼痛15年,皮肤巩膜黄染4天入院。既往有胆石症病史。查体:体温38.6℃,心率98次份,呼吸24次份,血压124/90mmHg;皮肤、巩膜轻度黄染,腹部略有膨隆,腹软,上腹部有压痛,Murphy征阳性。诊断考虑的疾病为
某隧道工程合同段,招标文件按《公路工程标准施工招标文件》(2018年版)编制。签约合同价为8000万元,工期为9个月。(1)开工预付款为签约合同价的10%,累计进度付款金额达到签约合同价的30%时开始扣回开工预付款,按工程进度款以固定比例(即每完成签约合
在大型国际建筑工程中,当事人倾向于用()的方式解决纠纷。
同一债务有两个以上保证人的,保证人应当按照保证合同约定的保证份额,承担保证责任。没有约定保证份额的,保证人承担连带担保责任,债权人可以要求任何一个保证人承担全部保证责任,保证人都负有全部债权实现的义务。()
产品的整体概念体现了以()为中心的现代市场营销观念。
孔子提出的“性相近,习相远”充分体现了哪种因素对学生发展的重要性?()
简述斯普兰格的性格类型说。
道德和法律是规范社会公共秩序的两种手段,法律区别于道德规范、风俗习惯等其他社会规范的首要之处在于()
最新回复
(
0
)