一道VB题,请高手把代码写一下(把代码补充完整)急

来源:百度知道 编辑:UC知道 时间:2024/06/07 12:54:10
第一题
Ⅰ实验题目:
用多重循环结构,在窗体显示出矩形、上三角和下三角形状的乘法九九表。

Ⅱ实验目的:
① 掌握双重循环结构的使用。
② 学习使用Tab函数。
③ 学习控制由字符组成的图形。
Ⅲ实验要求:
① 创建新工程,在窗体上设计Command1命令按钮。
② 为Command1控件设计代码,实现所要求的功能。
③ 要求使用双重循环结构。
④ 要求使用If语句控制每行上显示的项数。
⑤ 在程序中设置标号,用Goto语句进行转移。
[提示]
在显示乘法九九表时,分别用循环控制变量作为乘数,用If语句或循环参数来控制图形。
Ⅳ参考代码:(部分代码)
参考代码如下:
Private Sub Command1_Click()
Print Tab(35);” 乘法表”
For i=1 To 9
For j=1 To 9
Print Tab(j-1)*9+1);i&”×”&j&”=”&i*j;
If I<=J Then Goto Ck
Next j
Ck: Print
Next i
End Sub

<%
dim a,b
a=1
while a<=9
for b=a to 9
response.write cstr(a) & "*" & cstr(b) & "=" & cstr(a*b) & " "
next
response.write "<br>"
a=a+1
wend
%>

SORRY 正在学 不会

你是? 是物流07的么?

不会