请问以下VB程序运行结果是什么呀?1、For I=3 to 17 step 2 print I; next I prin
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 03:22:21
请问以下VB程序运行结果是什么呀?1、For I=3 to 17 step 2 print I; next I print print “n=”; n
请问以下两个VB程序运行结果是什么呀?
1、For I=3 to 17 step 2
print I;
next I
print
print “n=”; n
2、I=1
s=0
Do while I
请问以下两个VB程序运行结果是什么呀?
1、For I=3 to 17 step 2
print I;
next I
print “n=”; n
2、I=1
s=0
Do while I
Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
For i = 1 To N
S = ""
For j = 1 To i
S = S + "*"
Next j
Print S
Next i
End Sub
看不懂题目在写什么,随便谢谢 s(n)是不能这样定义数组的
Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
Dim S(N) As Integer
For i = 1 To N
Randomize
S(i) = Int((10 * Rnd) + 1)
Next i
For i = 1 To N
Print S(i)
Next i
End Sub
Private Sub Command1_Click()
Randomize
Dim a(10)
For j = 1 To 10
a(j) = Int(100 * Rnd)
If a(j) Mod 5 = 0 Then k = k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub
Private Sub Command1_Click()
Text1.BackColor = vbRed
Text1.FontSize = 40
Text1.FontName = "黑体"
Text1.FontBold = True
End Sub
如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
For i = 1 To N
S = ""
For j = 1 To i
S = S + "*"
Next j
Print S
Next i
End Sub
看不懂题目在写什么,随便谢谢 s(n)是不能这样定义数组的
Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个整数"))
Dim S(N) As Integer
For i = 1 To N
Randomize
S(i) = Int((10 * Rnd) + 1)
Next i
For i = 1 To N
Print S(i)
Next i
End Sub
Private Sub Command1_Click()
Randomize
Dim a(10)
For j = 1 To 10
a(j) = Int(100 * Rnd)
If a(j) Mod 5 = 0 Then k = k + 1
Print a(j)
Next j
Print k / 10
End Sub
Private Sub Command1_Click()
Text1.BackColor = vbRed
Text1.FontSize = 40
Text1.FontName = "黑体"
Text1.FontBold = True
End Sub
如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!
请问以下VB程序运行结果是什么呀?1、For I=3 to 17 step 2 print I; next I prin
下面程序段运行后 for i=1 to 5 for j=2 to i print"*";next j next i 为什
x=0 for i=1 to 3 x=x+i next i print x+i输出结果是多少 VB.
for i = 1 to 8 step 10 next i print i 为什么i=11
for i=1 to 10 i=i+i j=j+1 next print i,j请问结果是什么?
J = 10 For I = 1 To J Step 5 I = I + 2 J = J - I Next I Prin
For i=1 To10 Step 2 s=s+i Next i Print i 的
For i = 0 To 13 Step 4 i = i + 1 Next i Print i i=15
程序在运行循环“For I=1 to 14 step 3”结束后,I=?
s=0 For i=1 to 10 step 2 s=s+i Next Print s
1、运行程序:x = 2: For i = 1 To 10 Step -2: x = x + i: Next,x的值是_
X=5 For i=1 To 20 Step 2 x= x+ i \ 5 Next i 结果是多少