UC知道请会VB的朋友帮我看看这2道题怎么做
来源：百度知道 编辑：UC知道 时间：2024/05/18 05:25:40
1.
Private Sub Command1_Click()
x = Int(Rnd) + 3
If x ^ 2 > 8 Then y = x ^ 2 + 1
If x ^ 2 = 9 Then y = x ^ 2 - 2
If x ^ 2 < 8 Then y = x ^ 3
Print y
End Sub
程序运行后，单击命令按钮，其输出结果为
2.
Private Sub Command1_Click()
g = 0
h = 0
For i = 1 To 3
For j = 1 To i
f = 0
For k = j To 2
f = f + 1
Next k
h = h + 1
Next j
g = g + 1
Next i
Print h, g, i, j, k
End Sub
程序运行后，单击命令按钮，其输出结果为
Private Sub Command1_Click()
x = Int(Rnd) + 3
If x ^ 2 > 8 Then y = x ^ 2 + 1
If x ^ 2 = 9 Then y = x ^ 2 - 2
If x ^ 2 < 8 Then y = x ^ 3
Print y
End Sub
程序运行后，单击命令按钮，其输出结果为
2.
Private Sub Command1_Click()
g = 0
h = 0
For i = 1 To 3
For j = 1 To i
f = 0
For k = j To 2
f = f + 1
Next k
h = h + 1
Next j
g = g + 1
Next i
Print h, g, i, j, k
End Sub
程序运行后，单击命令按钮，其输出结果为
1.
7
2.
6 3 4 4 3
第一题中因为Rnd输出0-1之间随机数,所以
x=0+3=3,x^2=9
所以输出y=x^2-2=7
答案:7
第二题:6_______3________4________4________3("___"代表空格)
过程so烦琐……，简单点说：For循环后变量的值等于For的终值+Step(这里就是1），原因就是循环结束后又经过了一次Next，所以i,j,k分别等于4，4，3
至于g,h就是循环次数的问题了，自己数下吧……
自己可以用VB呀,你都已经把代码给写出来了, 就可以用VB使一下呀
7
63443
不用酸了！！！