江苏省2017年信息技术学业水平测试VB操作题题库[无答案]精选.docVIP

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 1 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 ② Print Str(i); Next j ③ Next i End Sub 【第8题】 打开“考生文件夹\1334”文件夹中的工程文件“工程1.vbp”进行以下操作后并保存！（在字符串相连接时不要使用“+”，应使用“”） (1) 在窗体Form1中添加一个名为Command1的按钮，并在按钮上显示文字“画图”； (2) 完善程序，单击“画图”按钮，使其能输出如下图形。 注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句 Private Sub Command1_Click() Dim i, j As Integer For i = 3 T