【答案解析】[操作步骤]
步骤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用来返回两个数中的较小数。