填空题

下面程序是用来打印九九乘法表的，请补充完整。 　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【 】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　 【 】 　　　　End If 　　　　Next j 　　Next i 　　Print Str

【参考答案】

j＜=i
<上一题 目录 下一题>
热门 试题

填空题
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click() 5Open d: test smtext1.txt For Input As #1Do While Not _________Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$Close #1 Open d: test smtext2.txt For Output As #1Print #1, _________Close #1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
填空题
请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。Private Sub Command1 Click()Dim s(6，6)For i=1 To 6For j=1 To 6If i=j Then【 】 Else【 】 End IfPrint 【 】 Next jPrintNext iEnd Sub
相关试题