问答题 中有一个工程文件sjt4.vbp。该程序的功能是:程序运行时,向文本框控件数组Text1(有5个文本框)中任意输入5个数,单击名称为Command1的命令按钮,则找出其中最小数并在标签lblResult中显示。给出的窗体文件中已经有了全部控件,但程序不完整,其中函数FindMin的作用是返回两个数中的较小数。要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
【正确答案】
【答案解析】[操作步骤]
步骤1:打开本题工程文件。
步骤2:分析并编写程序代码。
程序提供代码
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x=Val(Text1(1). Text)
"For k=2 To?
"x=FindMin(Val(Text1(k). Text),?)
Next
"lblResuh. Caption=?
End Sub
Public Function FindMin(x As Integer, y As Integer)
"If x ? y Then
FindMin=y
Else
FindMin=x
End If
End Function
程序结束
第1个?处填入:5
第2个?处填入:x
第3个?处填入:x
第4个?处填入:>
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 默认情况下文本框里的内容(包括数字)都是当作字符串来处理的,如果要参与数据运算,则需先用Val()函数将其转化为数字(如Val(Text1.Text))。根据题意,首先把第一个文本框的值赋给变量x,通过循环语句和调用过程函数FindMin,获得最小值,并显示在标签lblResult中。函数FindMin用来返回两个数中的较小数。