神马品牌网微信聊天机器人原理:怎么用VBScript编写九九乘法表
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 17:51:11
急用！
谢谢了！
谢谢了！
Private Sub Command1_Click()
Dim int1 As Integer, int2 As Integer
CurrentX = 0: CurrentY = 100 ' 使第一行离标题栏100单位
For int1 = 1 To 9 ' 每次循环生成一行
For int2 = 1 To int1 ' 每次循环生成一项
Print Spc(3); CStr(int2); "×"; CStr(int1); "="; CStr(int1 *
int2);
Next
Print ' 另起一行
Print ' 两行之间隔一空行
Next
End Sub
dim result,i,j,jieguo
for i = 1 to 9
for j=1 to i
jieguo=i*j
result=result & j & "X" & i & "=" & jieguo & space(8)
next
result =result & vbcrlf
next
msgbox result
保存为.vbs文件
for i=1 to 9
for j=i to 9
'print
'response.write (i & "×" & j & "="& i*j & "<br>")
next
next