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

admin2009-03-26  33

问题 (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://jikaoti.com/ti/vEq0FFFM
0

随机试题
最新回复(0)