vb习题（含答案）

Print Tab(25 + i ); For j = 1 To 11-2*i Print \; Next j Print Next i End Sub （4分）

3、* 利用数组求裴波那契数列1,1,2,3,5,...，并将其累加起来，直至其和首次大于200时为止。 Private Sub Command启动_Click()

Dim a(20) As Integer, i As Integer, s As Integer a(1) = 1: a(2) = 1 Print a(1); a(2);

i

= 2: s =

a(1)+a(2)

Do

i = i + 1

a(i) = a(i - 1) + a(i - 2) Print a(i); s = s + a(i) Loop Until s > 200 Print: Print \s End Sub （4分）

4、* 参照图{<5-2.jpg>}，完善下列程序。

* 在窗体的标签1中每隔1秒刷新显示当前系统时间，并且动态改变其前景色和字体大小。 '5-2.jpg

Private Sub Form_Load() Timer1.Interval= 1000 End Sub

Private Sub Timer1_Timer()

Dim z As Integer Label1 = Time()

z = Int(Rnd * 5 + 1)

label1.BackColor = Choose(z, vbRed, vbYellow, vbGreen, vbBlue, vbWhite) Label1.fontsize= Int(Rnd * 21+10) End Sub

（【下载文件“5-2.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分）

5、* 参照图{<12-1.jpg>}，完善下列程序。

* 在窗体的文本框中输入数字，当光标离开文本框的时候判断该数字是否能被3整除，若可以则全选输入的数字并且出现消息框“恭喜”，否则清空文本框并使光标重新回到该文本框中。 '12-1.jpg

Private Sub Text1_LostFocus() If Val(Text1) Mod 3 = 0 Then Text1.SetFocus Text1.selstart= 0

Text1.sellength = Len(Text1) Msgbox \恭喜！\Else

Text1.SetFocus Text1 = \End If End Sub

（【下载文件“12-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分）

6、* 编写一个文本框复制的程序，如图{}所示。 * 运行过程：

* 1.程序启动时，设置上面文本框的最大长度为10，文本框2不允许用户输入。 * 2.在上面文本框（Text1）填入文本，选中其中部分文本 * 3.单击清除按钮（Command1），清除两个文本框内容。

* 4.单击复制按钮（Command2），将上面文本框（Text1）选中文本复制到下面文本框（Text2） 'x_29.jpg

Private Sub Form_Load()

Text1.maxlength = 10

Text2.locked = True End Sub Private Sub Command1_Click() Text1 = \ Text2 = \End Sub Private Sub Command2_Click() Text2.Text = Text1.seltext Print \选中文字的长度为：\Text1.selLength Print \选中文字的开始为：\Text1.selstart End Sub （【下载文件“x_29.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （6分） 三、编程题（2道小题，共20分） 1、* 编写程序，计算并输出下面数列中前n项的和。(设n=20) 1*2,2*3,3*4,4*5,??,n*(n+1),?? （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Command1_Click() a = 1 For i = 1 To 3 a = i * (i + 1) Sum = Sum + a Next i Print Sum End Sub 2、* 编写程序，计算出100到500之间所有满足下列条件的整数和：整数能被其每位数字的和整除。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 Private Sub Command1_Click() Sum = 0 For i = 100 To 500 x = i \\ 100 y = (i - x * 100) \\ 10 z = i - x * 100 - y * 10 If i Mod (x + y + z) = 0 Then Sum = Sum + i End If Next i Print Sum End Sub