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

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

admin2009-02-25  20
问题 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下：
   在名称为Form1的窗体上有三个Labe1控件和两个命令按钮，Labe1控件均为提示信息。命令按钮 CMDstart和CMDexit，程序运行后，单击“开始”按钮，程序自动利用循环计算1＋1/2＋1/3＋...＋1/10的结果，并把结果写入到考生文件夹下result.txt文件中。执行完毕“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如图15-4所示。
   (2) 在考生文件夹下有工程文件sit4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下：
   程序启动时文本框的默认文字为“请输入您要设置的文本”，默认的字体为“仿宋GB2312”，字号为五号。程序运行过程中可以修改文本框的内容在单击“初始化”时恢复启动时的状态；在单击“清除”后，文本框的内容为空，并恢复默认的字体，字型号。选择相应的字体和字型号可以设置文本框内文字的字体和属性。程序运行界面如图15-5所示。
选项
答案在窗体上建立好控件后，先设置控件属性，再编写事件过程。 按钮的标题由其Caption属性设置，单击触发其Click事件。文件的操作一般按照如下步骤进行：打开或建立文件、进行读或写操作、关闭文件。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表15-3。 [*] 　　第二步：编写程序代码。 　　程序提供的代码： 　　　　Private Sub CmdEXIT_Click() 　　　　　　End 　　　　End Sub 　　　　Private Sub Cmdstart_click() 　　　　　　Dim E As Single, J As Integer 　　　　　　Dim T As Single 　　　　　　’Open App.Path& ? For ? As ? 　　　　　　’E=? 　　　　　　T=1 　　　　　　For J=2 To 10 Step 1 　　　　　　　　T=i/J 　　　　　　　E=E+T 　　　　　　　Next J 　　　　　　’Write #1, 　　　　　　Close #1 　　　　　　’CMDSTART.Caption=? 　　　　　　’CMDSTART.Enabled=? 　　　　End Sub 　　参考代码： 　　　　Private Sub CMDEXIT_Click() 　　　　　　End 　　　　End Sub 　　　　Private Sub CMDstart_click() 　　　　　　Dim E As Single, J As Integer 　　　　　　Dim T As Single 　　　　　　Open App.Path & "\" & "result.txt" For Output As #1 　　　　　　E=1 　　　　　　T=1 　　　　　　For J=2 To 10 Step 1 　　　　　　　　T=1/J 　　　　　　　　E=E+T 　　　　　　　　Debug.Print T, E 　　　　　　Next J 　　　　　　Write #1, E 　　　　　　Print E 　　　　　　Close #1 　　　　　　CMDSTART.Caption= "完成" 　　　　　　CMDSTART.Enabled=False 　　　　End Sub 　　第三步：调试并运行程序。 　　第四步：按题目要求存盘。 　　(2)单选按钮都是成组出现，用户在一组单选按钮中只能且最多选择一项，某项被选定后，其左边的圆圈中出现一个黑点；字体由FontName属性决定，字体的大小由FonfSize属性决定：清除文本框的内容可以用将文本框的内容置空来实现(文本框．Text="")。 　　需要指出的是框架是一个容器控件，用于将窗体上的控件分组，不同的对象赳放在同一个框架内，它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组，必须先画出框架，然后在框架内画出需要成为一组的控件，这样才能将框架内的控件组成一个整体。解题步骤： 　　第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表15-40 [*] 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub Command1_Click() Option1.Value=True Option6.Value=True Text1.Text="请输入您要设置的文本" End Sub Private Sub Command2_Click() Option1.Value=True Option6.Value=True ’Text1.Text=? End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Option1.Value=True Option6.Value=True Text1.Text="请输入您要设置的文本" End Sub Private Sub Option1_Click() Text1.FontName ="仿宋GB2312" End Sub Private Sub Option2_Click() ’Text1.FontName=? End Sub Private Sub Option3_Click() Textl.FontName="隶书" End Sub Private Sub Option4_Click() Text1.FontName="黑体" End Sub Private Sub Option5_Click() Text1.FontSize="5.5" End Sub Private Sub Option6_Click() ’Text1.FontSize=? End Sub Private Sub Option7_Click() Text1.FontSize="16" End Sub Private Sub Option8_Click() Text1.FontSize="42" End Sub 参考代码： Option Explicit Private Sub Command1_Click() Option1.Value=True Option6.Value=True Text1.Text="请输入您将要设置的文本" End Sub Private Sub Command2_Click() Option1.Value=True Option6.Value=True Text1.Text="" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Option1.Value=True Option6.Value=True Text1.Text="请输入您要设置的文本" End Sub Private Sub Option1_Click() Text1.FontName="仿宋GB2312" End Sub Private Sub Option2_Click() Text1.FontName="楷体GB2312" End Sub Private Sub Option3_Click() Text1.FontName="隶书" End Sub Private Sub Option4_Click() Text1.FontName="黑体" End Sub Private Sub Option5_Click() Text1.FontSize="5.5" End Sub Private Sub Option6_Click() Text1.FontSize="10.5" End Sub Private Sub Option7_Click() Text1.FontSize="16" End Sub Private Sub Option8_Click() Text1.FontSize="42" End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/1Q1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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