【正确答案】[解题思路] 默认情况下文本框里的内容(包括数字)都是当作字符串来处理的，如果要参与数据运算，则需先用Val()函数将其转化为数字(如Val(Text1. Text))。根据题意，首先把第一个文本框的值赋给变量x，通过循环语句和调用过程函数FindMin，获得最小值，并显示在标签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
'lblResult. 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：调试并运行程序，关闭程序后按题目要求存盘。