Question

1.一道简单的vb选择题,能稍微解释下吗

Answer 1

答案是 A
当 定循环 语句 i=1 执行完毕后
x = 20
y = 30
z =20

当 定循环 语句 i=2 执行完毕后
x = 30
y = 20
z =30
所以， 程序运行后，Text1 =80 （30+20+30）
答案是 A

追问

恩呢谢谢 是不是要实现真正三个转换只能再加个变量~~~
还有一个小问题 ：用随机函数产生100个1-100的整数，输出大于键盘输入的某个数（1-100）的数及个数。这个编代码我没思路 能不能看一下~

追答

对，没错！ 就上面的方法 ，三个变量 是实现不了 完全转换的。
你另外说的 随机数 问题， 试试 下面的 程序：
Public Sub 随机数()
Dim 随机数(1 To 100)
Dim 抽出数()
i = InputBox("请输入 1-100 之间的整数")
y = 0
For x = 1 To 100
随机数(x) = Int(Rnd * 100)
If 随机数(x) > Val(i) Then
y = y + 1
End If
Next x
ReDim 抽出数(1 To y)
t = ""
x1 = 1
For x = 1 To 100
If 随机数(x) > Val(i) Then
抽出数(x1) = 随机数(x)
t = t & 抽出数(x1) & vbLf
x1 = x1 + 1
End If
Next x
MsgBox ("大于" & i & "的整数的个数是" & y & vbLf & "列表如下：" & vbLf & t)
End Sub

这是 运行结果

追问

感谢！

这道题帮我看一下好吗
我实在没想法 感恩！

追答

看 私信吧