编程题
编写程序，使能打印下面所示的图案。 * ** *** ** *
程序：
Private Sub Form Click()
Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = -3 To 3
Print Tab(Abs(i)+5)
For j=1 To (4-Abs(i))-1 Print \ Next j
Print '换行 Next i End Sub
编写程序，使能打印下面所示的图案。 * *** ***** *** * 程序：
Private Sub Form Click()
Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = -3 To 3
Print Tab(Abs(i)+5);
For j=1 To 2*(3-Abs(i))-1 Print \ Next j
Print '换行 Next i End Sub
编写程序，使能打印下面所示的图案。 @ @@ @@@ @@@@ @@@@@ @@@@@@ 程序：
Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10);
16----20
For j = 1 To i Print “@”; Next j Print Next i End Sub
完善显示按钮的click程序，将代码段中“变量1“、“变量2.“变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2分别显示30、10, Private Sub Command_Click( ) x = 10 y = 30
If x < y Then t = x x = y y = t End If
Label1.Caption = x Label2.Caption = y End Sub
完善\判断\按钮的click程序，使当从Textl中输入一个数时，当该数大于或等于60时在Lebell中显示\及格\，该数小于60时在Labell中显示\不及格\。 Private Sub Command1_Click( ) Dim a As Single a = Val(Text1.Text) If a>=60 Then
Label1.Caption = “及格” End If
If a < 60 Then
Label1.Caption = “不及格” End If End Sub
编写程序，求函数y的值(当x<=0时,y=3x+1;当x>0时，y=4x+1)。 程序：
Private Sub Form Click()
Dim x As Single '定义x为单精度型变量 Dim y As Single '定义y为单精度型变量 x = Val(InputBox(\请输入变量x\If x <=0 Then
y = 3 * x + 1 Else
y = 4 * x + 1 End If
Print \End Sub
编写程序，求y=6x-5的值。(x的值在程序中调用InputBox函数，在 弹出的标准输入对话框中输入) 程序：
Private Sub Form_Click() Dim x As Single Dim y As Single
17----20
x = Val(InputBox(“请输入变量x”)) y = 6*x – 5 Print “y=”; End Sub
一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。 程序：
Private Sub Form_Click() Dim i As Integer Dim s As Integer s = 1
For i =1 To 9 s = (s + 1)*2 Next
Print “s=”;s End Sub
完善按钮“计算7!”的Click事件程序，当单击命令按钮时Text1显示7!的值。 Private Sub Command1_Click( )
Dim a As Integer Dim i As Integer a = 1
For i = 1 To 7 a = a * i Next i
Text1.Text = a End Sub
请将按钮\计算1+2+??+100\的Click事件程序中的\常量\和\变量\换成正确的常量和变量，当单击命令按钮时Text1显示1+2+\的值。 Private Sub Command1_Click( ) Dim a As Integer Dim I As Integer a = 0
For i = 1 To 100 a = a + i Next i
Text1.Text = a
编写程序，当在Textl中输入x的值后，单击计算按钮，求 y = |3x - 5|的值。 Private Sub Command1_Click( ) Dim x As Single Dim y As Single x = Text1.Text y = Abs(3*x-5) Text2.Text = y End Sub
必修5_18、在打开的窗体Forml中，在窗体中增加一个文本框Text3,在完整按钮中的程序，使当单击\计算\按钮时，计算b*b一4ec的值，并在Text3中显示出来。 Private Sub Command1_Click( ) Dim b As Single Dim c As Single Dim x As Single b = Text1.Text
18----20
c = Text2.Text x = b * b – 4 * c Text3.Text = x End Sub
编程计算 s=1-2+3-4+5-??+99-100 程序：
Private Sub Form Click()
Dim s As Integer '定义变量s为整型变量 Dim i As Integer '定义循环变量 s = 0
For i=1 To 100
if int(i/2) <> i/2 Then s = s + i Else
s = s - i End Next i
Print \End Sub
编写程序，求I+2+?+n>=500中最小的n 程序：
Private Sub Form_Click( ) Dim s As Integer Dim n As Integer s = 0 n = 0 Do
n = n + 1 s = s + n
Loop Until s > 500 Print “n=”;n End Sub
编程计算s = 1*2+2*3+3*4+??+n*(n+1)的值，其中n =10 Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0
For i = 1 To 10
s = s + i * (i +1); Next i
Print “s=”;s End Sub
编程求:鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只? 程序：
Private Sub Form Click() Dim Ji As Integer '鸡 Dim Tu As Integer '兔
Dim Leg As Integer '腿数 Dim Head As Integer '头数 For Ji=1 To 50
19----20
For Tu=1 To 25
Leg = Ji*2 + Tu*4 '计算腿 Head= Ji + Tu '计算头
If Leg = 100 And Head = 40 Then Print \鸡=\只\兔=\只\ End If Next Tu Next Ji End Sub
编写递归函数求5!的值。
Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else
s=n * s(n-1) End If
End Function
Private Sub Form_Click() Print “s(5)=”;s(5) End Sub
编写递归函数求10!的值。
Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else
s=n * s(n-1) End If
End Function
Private Sub Form_Click() Print “s(10)=”;s(10) End Sub
20----20