2017年江苏省信息技术学业水平试卷（7）

一、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

  解析