2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮，能将下面给出的

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮，能将下面给出的

admin2010-07-13  39
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗口中有一个Label控件和两个名称分别为Commandl和Command2、标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮，能将下面给出的菱形写入考生文件夹下的shape．dat文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行时的窗体界面如图51—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体中有一个名称为Commandl、标题为“读取字体大小”的命令按钮，一个名称为Listl的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在Listl中显示，如图51—5所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案 (1)根据题意，将两个命令按钮和一个标签添加到窗体中，标签的Caption属性为“编写打印到目标文件的菱形。目标文件为shape．dat”，命令按钮的Caption属性分别设为“开始”和“关闭”，名称分别为Commandl和Command2。双击Commaildl。利用循环打印空格和字母“A”来画出菱形，进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Open App．Path&"shape5．dat"For Output As#1 ’打开文件，准备写入 Dim n As Integer Dim i As Integer Dim str AS String For n=0 To 4’打印菱形上半部分 str="" For i=0 To 4-n’打印空格 str=str+"" Next i For i=0 To 2*n’打印字母"A" str=str+"A" Next i Print#1，str$ Next n For n=5 To 8 ’打印下半部分 str="" For i=0 To n-4 ’打印空格 str=str+"" Next i For i=0 To 2*(8-n) ’打印字母"A" str=str+"A" Next i Print#1，str$ Next n Close#1 Commandl．Enabled=False Commandl．Caption="完成" End Sub Private Sub Command2 Click() Unload Me End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将一个列表框控件和一个命令按钮添加到窗体中，列表框的名称设为Listl，命令按钮的名称设为Commandl、Caption属性为“读取字体大小”。双击Commandl进入代码编写窗口，其中Screen．Fonts是读取系统字体的函数，然后利用循环添加到Listl中，补充后的具体代码如下： Private Sub Commandl Click() Dim i As Integer For i=0 To Screen．FontCount-1 Listl．Addltem Screen．Fonts(i) Next i End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/IGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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