VB 有任意十个数,请把他们之中最大的和最小的数打印出来(十个数由自己设定).
来源:百度知道 编辑:UC知道 时间:2024/09/28 10:32:17
这是一个VB的小题目
Dim X(9) As Integer
Dim I As Integer
Dim min As Integer, max As Integer
For I = 0 To 9
X(I) = InputBox("请输入第 " & I + 1 & " 个数")
Next
min = X(0): max = X(0)
For I = 1 To 9
If X(I) < min Then min = X(I)
If X(I) > max Then max = X(I)
Next
Print "最小的数字是:" & min
Print "最大的数字是:" & max
手机写代码太慢,写一下思路吧,我也是昨天才学到的…
先声明两个变量例如:maxmin,将第一个数赋给两个变量,然后拿下一个数与两个变量比较,比max大时,就将这个数赋给max,比min小时就将这个数赋给min,执行循环操作九次,然后打印两个变量……怎么样…
Private Sub Command1_Click()
Dim max As Double
Dim min As Double
Dim d As Double
For i = 1 To 10
d = Val(InputBox("请输入一个数", "输入", "0"))
If i = 1 Then
max = d
min = d
Else
If max < d Then
max = d
End If
编写一个程序,可以任意输入十个数,并求出他们的平均值与和,VF的题
任意输出十个数求平均值及和 VFP编程
在1,2,3,```,2003这几个数间任意加上+和-,他们的和有没有可能是1,有可能请设计方案,
如何用vb求任意两个数的最大公约数
0123456789这十个数字中,任意由其中的六个数字进行排序,是具体的数啊,如123456,有哪些?
任意给你几个数,怎么判断他们能不能构成三角形
将1,2,3,…,10这十个数按任意顺序排成一圈。在这一圈数中一定有相邻的三个数之和不小于17?
任意输入十个数经过进出栈和进出队的程序代码
1234567890这十个数任意排列成6位数字,哪位高人能列示出来
任意的一个自然数m,现在任意取m+1个正整数!求证:其中至少有两个数之差等于m的整数倍.