文章目录
前言
内容
一、编写程序，点击相应的按钮在图片框中输出相对应的图形。
二、界面如图所示。编写程序实现图片框输出图形
三、界面如图所示。编写程序实现图片框输出图形
四、界面如图所示。编写程序实现图片框输出图形
五、（多项选择和多项删除）
六、有一个5*5的矩阵，各元素都是随机产生的两位整数，找出最大值、最小值以及它们的下标并求出平均值。如下图所示输出。
七、计算：n+nn+nnn+nnn......
八、单击窗体，生成0~10之间的随机整数矩阵，分别放在两个图画框内，求两个矩阵之和放入第三个图画框内。
九、编写一个程序，用随机函数产生4行5列的两位整数并输出。然后分别实现第1行和第三行数据交换和第2行和第4行交换，输出交换前和交换后的结果。（利用图片框）
十、在文本框输入大于10的偶数，找出最接近这个数的素数，输出在窗体上
前言备考技能考时的一些练习题
题目难度较大
答案都是小编自己打出来的，也需会有错。
内容 一、编写程序，点击相应的按钮在图片框中输出相对应的图形。
答案：
Private Sub Command1_Click()
Dim i As Integer
P1.Cls
For i = 1 To 6
P1.Print Space(10 - i); String(6, "*"); Space(2 * i - 2); String(6, "*")
Next
End Sub
Private Sub Command2_Click()
P1.Cls
For i = 1 To 6
P1.Print Space(10 - i); String(6, CStr(Chr(64 + i))); Space(2 * i - 2); String(6, CStr(Chr(64 + i)))
Next ‘转换为字符串就可以用string输出了。
End Sub
二、界面如图所示。编写程序实现图片框输出图形
答案：
Private Sub Command1_Click()
Dim i As Integer
P1.Cls
P1.Print
s = 0
b = 1
For i = 1 To 5
If i = 2 Then
s = s + 1
End If
If i >= 3 Then
b = b + 2
End If
P1.Print Space(7 - i); "*"; Space(b); String(s, "*")
Next
For i = 1 To 3
P1.Print Space(i + 2); "*"; Space(b - 2); String(1, "*")
b = b - 2
Next
P1.Print Space(6); "*"
End Sub
Private Sub Command2_Click()
P1.Cls
Dim i As Integer
P1.Print
s = 0
b = 1
For i = 1 To 5
If i = 2 Then
s = s + 1
End If
If i >= 3 Then
b = b + 2
End If
P1.Print Space(7 - i); String(1, CStr(Chr(64 + i))); Space(b); String(s, CStr(Chr(64 + i)))
Next
For i = 1 To 3
P1.Print Space(i + 2); String(1, CStr(Chr(69 - i))); Space(b - 2); String(1, CStr(Chr(69 - i)))
b = b - 2
Next
P1.Print Space(6); "A"
End Sub
三、界面如图所示。编写程序实现图片框输出图形
答案：
Private Sub Command1_Click()
Dim i, j As Integer
P1.Cls ‘清除图片框内容
s = 0
For i = 1 To 6 ‘定义6行
P1.Print Space(24 - (i * 3)); ‘定义前面的空格数
s = I ‘定义变量s，用于输出靠后的降序数；
For j = 1 To 2 * i – 1 ‘定义每行的个数
If j 10 And a Mod 2 = 0 Then
For i = 2 To Val(a + 10)
f = 0
For j = 2 To i - 1
If i Mod j = 0 Then
f = 1
Exit For
Else
f = 0
End If
Next
If f = 0 Then
If Abs(a - i) < min Then
min = Abs(a - i)
b = i
End I
End If
Next
Print b
Else
MsgBox "请输入大于10的偶数"
End If
End Sub
总结：这些题难度比较大，考试出的难度大概率比这个小。多练习多做题考试没问题。