VB1--打印图形题
【第1题】
打开“Z:\612\工程1.vbp”， 完善Form_Click事件代码并保存。
实现功能：在窗体上打印如图所示的九九乘法表。
Private Sub Form_click()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To ①
        For j = 1 To ②
            Print Tab((j - 1) * 12);
            Print j; "*"; i; "="; ③;
        Next j
        Print
    Next i
End Sub
【第2题】
打开文件“考生文件夹\610\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：
@
@@
@@@
@@@@
@@@@@
@@@@@@
Private Sub Command1_Click()
    Dim i As Integer    '定义i为整型变量
    Dim j As Integer    '定义j为整型变量
        For i = 1 To 6 Step 1
            For j = 1 To ① Step 1vb开始按钮代码
              Print ②
                Next ③
              Print
          Next i
【第3题】
打开文件“考生文件夹\609\工程1.vbp”，完善Form_Click事件代码并保存。
实现功能：单击窗体时在窗体上打印下面所示的图案。
****
***
**
*
Private Sub Form_Click()
    Dim i As Integer
    Dim j As Integer
    For i = ① To 1 Step -1
        For j = 1 To i Step 1
            ②
        Next j
        Print
    ③
End Sub
【第4题】
打开文件“考生文件夹\730\工程1.vbp”，完善Form_Click事件代码并保存。
实现功能：在窗体上显示如图所示的数字金字塔。
Private Sub Form_Click()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 5
      Print Tab(10 - i);
      For j = 1 To ①
        Print ②;
      Next j
      ③
    Next i
End Sub
【第5题】
打开文件“考生文件夹\15\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：单击按钮后在窗体上打印出下面所示的图案。(第一行的第一个“*”从第5列开始输出)
Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To ①
      Print Tab(6 - i);
      For j = 1 To ②
        Print ③;
      Next j
      Print
    Next i
End Sub
【第6题】与第4题重复
【第7题】
打开文件“考生文件夹\729\工程1.vbp”，完善Form_Click事件代码并保存。
实现功能：在窗体上显示如图所示的数字金字塔。
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To ①
  Print Tab(10 - i);
  For j = 1 To ②

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。