Dim x, max, min
For i = 1 To 10
x = Val(InputBox("请输入整数"))
s = s & x & " "
If i = 1 Then
max = x
min = x
End If
If max < x Then
max = x
End If
If min > x Then
min = x
End If
Next
MsgBox s & vbCrLf & "最大值为：" & max & " 最小值为：" & min
End Sub
如果不给max,min赋值第一个输入的整数 结果是不正确的。因为这2个变量初始值为0，如果输入的10个数都是负数，结果就不正确了
for i = 1 to 10
x=inputbox("请输入整数")
if max < x then
max = x
end if
if min > x then
min = x
end if
next
msgbox "最大值为："&max&"，最小值为："&min
VB 输入十个数,输出最大数和最小值。用InputBox
MsgBox s & vbCrLf & "最大值为：" & max & " 最小值为：" & min End Sub 如果不给max,min赋值第一个输入的整数 结果是不正确的。因为这2个变量初始值为0，如果输入的10个数都是负数，结果就不正确了
【超简单,很急】VB程序设计输入十个数,输出最大和最小数
a(i) = InputBox("请输入第" & i & "个数：")Print a(i);Next i Print Max = a(1)Min = a(1)For i = 1 To 10 If Max < a(i) Then Max = a(i)If Min > a(i) Then Min = a(i)Next i Print "最大值为：" & Max Print "最小值为：" & Min End Sub ...
VB编程 利用inputbox函数输入10个数,找出最大数 并输出。
汗……有Option Base 1啊……看出来了，是这样子的，因为你在输入之前就定义了Min=s(1)此时，s(1)=0，所以之后只要你输入的正数就不会比0小了，应该将Min定义成一个大数，比如使成绩的话，Min=100这样就不会错了
用VB语言随机输入10个数,输出最大值和最小值,和其位置
For i = 1 To 10 temp = temp & a(i) & " "Next temp = "这十个数是：" & temp & "最大数" & max & "的位置在" & maxi & " " & "最小数" & min & "的位置在" & minj MsgBox temp End Sub
从键盘输入10个数,输出其中的最大值,最小值和平均值。VB语言程序。
dim max ,min,ave,sum,inputValuedim ifor i=1 to 10 inputValue=inputbox("请输入第" & i & "个数") if max="" then max= inputValue if min="" then min= inputValue if ave="" then ave= inputValue sum=val(sum)+inputValue max=iif(val(max)<val(inputV...
vb编写一个程序,从键盘输入10个学生成绩,统计最高分,最低分和平均值...
dim MyAvg as single dim x as single x=val(inputbox("输入第1个成绩："))sum=x Mymax=x Mymin=x for i=2 to 10 x=val(inputbox("输入第" & i & "个成绩："))sum = sum + x if x>Mymax Then Mymax =x if x<Mymin Then Mymin =x next i MyAvg = sum \/10 print ...
VB从键盘上输入10个正数 求其中的最大值。用InputBox()函数输入。
dim i,m,a(10)for i=1 to 10 a(i)=val(inputbox("第" & i & "个数"))print a(i);if m<a(i) then m=a(i)next print print "最大值:"; m
vb编程 依次输入十个数。并排大小。 用上循环函数。
Dim N As Integer Print "输入的十个数值为："Randomize For i = 1 To 10 S(i) = InputBox("请输入一个正整数：")Print S(i);Next Print Print "从小到大排序后的结果为："For i = 1 To 9 For J = i + 1 To 10 If S(i) > S(J) Then N = S(i)S(i) = S(J)S(J...
用VB编程,利用窗口输入10个数,求这10个数的最大值
dim a(10)!for i=0 to 9 a(i)=inputbox("请输入第" & (i+1) & "个数")next i max=a(0)for i= 1 to 9 if a(i)>max then max=a(i)next i print "最大数是";max
从键盘上输入10个数,输出这10个数并求这10个数的平均值,最大值和最小...
Private Sub Command1_Click() Dim a(1 To 10) As Double Dim ave As Double, max As Double, min As Double, sum As Double For i = 1 To 10 a(i) = Val(InputBox("请输入第" & i & "个数")) sum = sum + a(i) Print a(i); Next i Print ...
