2017年江蘇省信息技術學業水平試卷（7）
發布：2024/4/20 14:35:0
一、VB1--打印圖形題
-
1．打開“Z：\612\工程1．vbp”，完善Form_Click事件代碼并保存．
實現功能：在窗體上打印如圖所示的九九乘法表．
Private Sub Form_click （ ）
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事件代碼并保存．
實現功能：當單擊“顯示”按鈕后，在窗體上顯示下面的圖形：
@
@@
@@@
@@@@
@@@@@
@@@@@@
Private Sub Command1_Click （ ）
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”進行以下操作后并保存！（在字符串相連接時不要使用“+”，應使用“&”）
（1）在窗體Form1中添加一個名為“Command1“的按鈕，并在按鈕上顯示文字“畫圖”；
（2）完善程序，單擊“畫圖”按鈕，使其能輸出如下圖形。
注：（1）刪除①、②、③，填入正確的語句
（2）不能刪除注釋語句
Private Sub Command1_Click （ ）
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”，完善程序并保存。
實現功能：單擊按鈕后打印下面所示的圖案。（第一行的第一個“@”從第1列開始輸出）
Private Sub Command1_Click （ ）
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