2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用(灰色显示)；单击“读取

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用(灰色显示)；单击“读取

admin2009-03-26  66
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用(灰色显示)；单击“读取数据”按钮之后，利用InputBox让用户连续且必须输入8个数。若录人为非数字符号，则给出提示“输人数据无效，请重新输入：”；输入完毕后，“读取数据”变灰，其他变为可用状态；按相应的按钮可分别求出所输入数据的升序排列及平均值，并在右侧对应的文本框中显示(注意用A(8)存放最大数，A(1)存放最小数)；单击“清空”按钮将所有文本框清空。如图10一3所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在名称为Forml，窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Textl中用户输入的任意自然数n的累加和。刚启动工程时，可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过4位)。当输入为非数值时，累加结果为0；单击“开始”可以在，I?ext2中显示累加和，同时“开始”变为“完成”并变灰；单击“关闭”按钮结束程序的运行。如图10—4所示

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案 (1)用数组str(8)来接收InputBox输入的8个数，InPutB。x的格式为：InputBOX(提示[，标题][，默认][，x坐标位置][，Y坐标位置])；Enabled属性可设置控件是否可用，当该值为True时可用，为False时不可用(灰色)；Val()函数将字符转换成数值。 根据题意，将5个命令按钮和3个文本框控件添加到窗体中，命令按钮的名称分别为Commandl、command2.Command3、Command4和Command5，Caption属性分别为“读取数据”、“升序显示”、“平均值”、“清空”和“关闭”，文本框的名称分别为Textl、Text2和Text3，Text属性都为空。双击Cornmandl进入代码窗口，补充后的代码如下： Dim a(8)As Long Dim str(8)As String Private Sub Commandl_Click() Dim strl AS String Dim str2 As String Dim str3 As String Dim i AS Integer str3="" For i=i To 8 str2==i strl="输入第" strl=strl+str2 strl=str1+"个数" str(i)=InputBox(strl) lf str(i)=""Then’如果按“取消则重新初始化”对话框 Form_Load End If Whiie Asc(str(i))>Asc("9")Or Asc(str(i))Exit For End If Next j Next i For i=1 To 8 tmp=a(i) str=str+tmp+"" Next i Text2．Text=str End Sub Private Sub Command3_Click() ’求平均数 Dim i As Integer Dim total As Long total=0 For i=l To 8 total=total+a(i) Next i total=total＼8 Text3．Text=total Commandl．Enabled=False Command2．Enabled=True Command 3．Ena bled=False Command4．Enabled=True End Sub Private Sub Command4_Click()’清空所有文本框 Textl．Text="" Text2．Text="" Text3．Text="" Commandl．Enabled=True Command2．Enabled=False Command3．Enabled=False Command4．Enabled=False End Sub Private Sub Command5_Click()’关闭对话框 Unload Me End Sub Private Sub Form_Load() ’初始化对话框 Commandl．Enabled=True Command2．Enabled=False Command3．Enabled=False Command4．Enabled=False Command5．Enabled=True End Sub 单击[*] 按钮运行程序，并按要求保存。 (2)要计算累加和通常利用for循环来完成。文本框巾的内容(包括数字)默认都是当做字符串来处理的，如果要参与数据运算则需先用Val()函数将其转化为数字。 根据题意，将3个标签、2个命令按钮和2个文本框控件添加到窗体中．标签的Caption属性分别为“要求：程序能得到结果total，total=1+2+3+…+n”、“输入n(0Text) ’获得n total=0 For i=1 To n total=total+i’累加 Next i Text2．Text=total Commandl．Enabled=False’完成后Commandl不可用 Commandl．Caption="完成" ’名称改为完成 End Sub Private Sub Command2_Click() ’关闭命令按键 Unload Me End Sub 单击[*] 按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/EN1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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