UC知道VB程序问题!急!
来源：百度知道 编辑：UC知道 时间：2024/05/15 11:38:16
输入N个正整数，输出其中的最大数和最小数。
提示：
借助输入函数inputbox（），可以在循环过程中输入数据。
Inputbox的作用：弹出一个输入对话框。
格式： inputbox(提示信息，标题，输入的初值)
麻烦高手了!能否在给代码的同时说明一下思路?
用 for to语句!
提示：
借助输入函数inputbox（），可以在循环过程中输入数据。
Inputbox的作用：弹出一个输入对话框。
格式： inputbox(提示信息，标题，输入的初值)
麻烦高手了!能否在给代码的同时说明一下思路?
用 for to语句!
看代码：
Private Sub Command1_Click()
n = InputBox("你想比较多少个正整数?")
If n >= 2 Then
Dim i As Integer, m As Integer
Dim max As Integer, min As Integer
For i = 1 To n
Do
m = InputBox("请输入第" & i & "个正整数")
Loop Until (m > 0)
If i = 1 Then min = m
If m > max Then max = m
If m < min Then min = m
Next
Print n & "个数中最大的是" & max
Print n & "个数中最小的是" & min
End If
说明：
1、每次比较多少个数由用户定-第一个inputbox 语句的作用
2、在For循环中，每输入一个数都要判段是否更新max,min，循环完自然找到最大和最小的数
3、m = InputBox("请输入第" & i & "个正整数")语句放在do循环中，保证m>0
4、If i = 1 Then min = m 语句是必须的，否则min=0
给你个思路吧。 这电脑上没装的 不能给你程序了
将输入的第一个数同时赋值给 Max 和Min
然后将输入的每一个数都和 （Max 和Min）相比，如果大于max 则将当前数存入max 如果小于min 则存入min
for 循环 从1 到 N
n=val(inputbox("输入个数n:"))
mi=val(inputbox("输入第一个数:"))
ma=mi
for i=2 to n