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

一、 【28】 请在给出VB3-31.frm窗体中，编写程序打印下面给出的图形，特别说明每一行两个数字之间有两个空隔。 1 2 4 3 6 9 4 8 9 12 5 10 15 20 25 Private Sub Command1_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-20.frm，并完成程序，实现以下功能： 随机的产生10个1－100之间的数并存放在数组中， 以蓝色17号字显示数组。 找到其中6的倍数，并求出这些数的和， 将这些6的倍数和他们的和以蓝色16号字显示在窗体中 Private Sub Command1_Click() Dim a(1 To 10) Form1.ForeColor = vbBlue Form1.FontSize = 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-35.frm窗体中，选择对command1单击这个事件，使之能有以下功能：在文本框一和文本框二中分别的输入两个整数，求这两个数的最大公约数，结果显示在label3中。 Private Sub Command1_Click() Dim a%, b% a = Text1.Text b = Text2.Text 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: Label4.Caption = i End Sub 【29】 请在给出VB3-37.frm窗体中，编写程序计算S=1+22+333+4444+...+666666的值,并将结果输出在窗体上，输出格式为：S=*****。 Private Sub Command1_Click() Dim s s = 1 + 22 + 333 + 4444 + 55555 + 666666 Print S= s 程序计算 End Sub 三、 【27】 请打开考生文件夹下的VB2－22.frm，并根据要求完成程序使得其能根据不同选择来设置文本框的字号和字色 【30】 打开vb4-17.frm，并完成程序，实现以下功能： 通过键盘输入10个数，找到其中大于60的数，并求出这些数的和 将大于60的数和他们的和以红色16号字显示在标签中 四、 图像框和图片框均可用于装载、显示图形文件，可在运行阶段通过 LoadPicture()函数装入图形文件。标准答案：Y 【27】 打开VB2-27.frm.并根据窗体设计完成以下操作： 1、Command1_Click() 将红色标签向下移150个单位 2、Command2_Click() 在红色标签中显示大家好 3、Command3_Click() 对红色标签进行隐藏/显示 五、 【27】 打开VB2－28.frm，根据窗体要求，设计如下功能： Form_Load() 将两个水平滚动条的取值范围设为100-200之间 HScroll1_Change() 将两个水平滚动条当前取值的和显示在label1中 HScroll2_Change() 将两个水平滚动条当前取值的和显示在label1中 【30】 打开VB4-15.frm，完成程序使其能完成以下操作： 通过键盘输入10个数，找到其中最大的和最小的数的位置并对调 将对调之后的结果以蓝色的16字显示在窗体上 注：如有相同的最大值和最小值，则对调第一个最大值和第一个最小值的位置。 六、【27】 打开VB2－29.frm，根据窗体要求，设计如下功能： 1 Form_Load() 将两个水平滚动条的取