2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他其他部分

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他其他部分

admin2009-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全国计算机二级

相关试题推荐
随机试题
最新回复(0)