帮忙解决——vb 比较3个数的大小

显示全部楼层 · 2010-5-25 09:10:43

'输入3个整数，输出最小值
'注：①运行时，把红色下划线删除
'
②不能删除注释语句
Private Sub Form_Load()
Dim x As Integer
Dim min As Integer
Dim i As Integer
min = InputBox("请输入数据", "输入3个数")'输入第一个整数
For i = 1 To ____'第一空

x = InputBox("请输入数据", "输入3个数")'输入第二和第三个整数

If ______ Then'第二空

min = x

End If
Next i
Text1.Text = _____'第三空 '输出最小的整数
End Sub

千问 · 2010-5-25 09:10:43

2x<minmin

千问 · 2010-5-25 09:10:43

第一空为 2第二空位 it x<min第三空为 min

千问 · 2010-5-25 09:10:43

Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As IntegerFor i = 1 To 3 '第一空
x = InputBox("请输入数据", "输入第 "& i &"个数")'输入第二和第三个整数
If x<min Then

千问 · 2010-5-25 09:10:43

2，cint(x),cstr(min)