南昌科技大学vb上级试题库含答案(经典).doc

【28】请在给出VB3-,编写程序打印下面给出的图形,特别说明每一行两个数字之间有两个空隔。
1
2 4
3 6 9
4 8 9 12
5 10 15 20 25
Private mand1_Click()
Dim s&
For i = 1 To 5
For j = 1 To i
s = i * j
Print s; Space(2);
Next j
Print
Next i
'编写程序打印给出的图形。
End Sub
Print "1"
Print "2 4"
Print "3 6 9"
Print "4 8 12 16"
Print "5 10 15 20 25"
【30】打开vb4-,并完成程序,实现以下功能:
随机的产生10个1-100之间的数并存放在数组中,
以蓝色17号字显示数组。
找到其中6的倍数,并求出这些数的和,
将这些6的倍数和他们的和以蓝色16号字显示在窗体中
Private mand1_Click()
Dim a(1 To 10)
= vbBlue
= 17
For i = 1 To 10
a(i) = Int(100 * Rnd + 1)
Print a(i);
Next i
Print
For i = 1 To 10
If a(i) Mod 6 = 0 Then
s = a(i) + s
Print a(i);
End If
Next i
Print
Print "s="; s
End Sub
'随机的产生10个1-100之间的数并存放在数组中,
'以蓝色三号号字显示数组
'找到其中6的倍数,并求出这些数的和,
'将这些6的倍数和他们的和以蓝色16号字显示在窗体中
二、
【28】请在给出VB3-,mand1单击这个事件,使之能有以下功能:在文本框一和文本框二中分别的输入两个整数,求这两个数的最大公约数,结果显示在label3中。
Private mand1_Click()
Dim a%, b%
a =
b =
If a > b Then
k = b
Else
k = a
End If
For i = k To 1 Step -1
If a Mod k = 0 And b Mod k = 0 Then
'c = i
GoTo over
End If
Next i
over:
= i
End Sub
【29】请在给出VB3-,编写程序计算S=1+22+333+4444+...+666666的值,并将结果输出在窗体上,输出格式为:S=*****。
Private mand1_Click()
Dim s&
s = 1 + 22 + 333 + 4444 + 55555 + 666666
Print "S=" & s '程序计算
End Sub
三、
【27】请打开考生文件夹下的VB2-,并根据要求完成程序使得其能根据不同选择来设置文本框的字号和字色
【30】打开