题目
下面程序是用来打印九九乘法表的,请填空。
Private Sub Form_Click()
Dim flag As Integer,i As Integer,j As Integer,Str1$
Str1=“”
For i=1 To 9
【 】
For j=1 To 9
If【 】 Then
str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))
Else
str1=str1 & Chf(13)
Exit For
End If
Next j
Next i
Print str1
End Sub
第1题
下面程序是用来打印九九乘法表的,请填空。
Dim i As Integer,j As Integer,Str1 $
Str1=""
For i=1 To 9
For j=1 To 9
If [ ] Then
Str1=Str1+Str$(j)+"X"+Str$(i)+"="+Str$(Val(i*j))
Else
Str1=Str1 & Chr(13)
[ ]
End If
Next
Next
Print Str1
第2题
以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。请填空。
Private Sub Command1_Clcik()
Randomize
For I=1 To 20
X=Int(Rnd* ______ )
If X/2= ________ Then Print x
Next I
End Sub
第3题
第4题
A.外层循环i用于控制一共打印9行
B.执行代码,输出九九乘法表
C.执行代码出错
D.也可使用While嵌套循环实现打印九九乘法表
第5题
以下程序的作用是()
For i = 1 To 9
For j = 1 To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 1); se;
Next j
Picture1.Print
Next i
A.打印ASCII码表
B.打印九九乘法表
C.打印加法表
D.以上说法都不正确
第6题
第7题
以下程序段的作用是()
Private Sub Picture1_Click()
Dim asci As Integer, i As Integer
i = 0
For asci = 32 To 126
Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;
i = i + 1
If i = 7 Then i = 0: Picture1.Print
Next asci
A.打印ASCII码表,一行7个表达式
B.打印九九乘法表,一行7个表达式
C.打印ASCII码表,一行8个表达式
D.以上说法都不正确
第8题
第9题
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!