2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（7）

一、VB1--打印圖形題

• 1．打開“Z：\612\工程1．vbp”，完善Form_Click事件代碼并保存．
  實現(xiàn)功能：在窗體上打印如圖所示的九九乘法表．
  Private Sub Form_click （　?。?br />Dim i As Integer
  Dim j As Integer
  For i=1To ①
  For j=1To ②
  Print Tab（（j-1）*12）；
  Print j；“*“； i；“=“； ③；
  Next j
  Print
  Next i
  End Sub.
  組卷：8引用：1難度：0.7

  解析

• 2．打開文件“考生文件夾\610\工程1．vbp”，完善Command1_Click事件代碼并保存．
  實現(xiàn)功能：當(dāng)單擊“顯示”按鈕后，在窗體上顯示下面的圖形：
  @
  @@
  @@@
  @@@@
  @@@@@
  @@@@@@
  Private Sub Command1_Click （　?。?br />Dim i As Integer'定義i為整型變量
  Dim j As Integer'定義j為整型變量
  For i=1To 6Step 1
  For j=1To ①Step 1
  Print ②
  Next ③
  Print
  Next i.
  組卷：9引用：1難度：0.5

  解析

一、VB1--打印圖形題

• 7．打開“考生文件夾\1334”文件夾中的工程文件“工程1．vbp”進行以下操作后并保存?。ㄔ谧址噙B接時不要使用“+”，應(yīng)使用“&”）
  （1）在窗體Form1中添加一個名為“Command1“的按鈕，并在按鈕上顯示文字“畫圖”；
  （2）完善程序，單擊“畫圖”按鈕，使其能輸出如下圖形。
  注：（1）刪除①、②、③，填入正確的語句
  （2）不能刪除注釋語句
  Private Sub Command1_Click （　?。?br />Dim i,j As Integer
  For i=3To ①Step ②'第一空
  Print Space（i）；'打印空格
  For j=1To 10
  Print ③'第二空
  Next j
  Print
  Next i
  End Sub。
  組卷：0引用：1難度：0.9

  解析

• 8．打開“考生文件夾\1987\工程1．vbp”，完善程序并保存。
  實現(xiàn)功能：單擊按鈕后打印下面所示的圖案。（第一行的第一個“@”從第1列開始輸出）
  Private Sub Command1_Click （　?。?br />Dim i,j As Integer
  For i=①To 1Step-1
  Print Tab（4-i）；
  For j=1To ②
  Print ③；
  Next j
  Print
  Next i
  End Sub。
  組卷：0引用：1難度：0.9

  解析