江苏省高中信息技术算法与程序设计VB（选修）

Print Tab(Abs(i)+5);

For j=1 To 2*(3-Abs(i))-1 Print \ Next j

Print '换行 Next i End Sub

必修3_15、编写程序，使能打印下面所示的图案。 @ @@ @@@ @@@@ @@@@@ @@@@@@ 程序：

Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10); For j = 1 To i Print “@”; Next j Print Next i End Sub

必修4_15、完善显示按钮的click程序，将代码段中“变量1“、“变量2.“变量 3、处换成正确的变量名，使当单击该按钮时，Labell. Label2分别 显示30、10,

完成所有操作后，诸按“Ctrl+S”保存。 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

必修5_15、完善\判断\按钮的click程序，使当从Textl中输入一个数时，当该数 大于或等于60时在Lebell中显示\及格\，该数小于60时在Labell中显 示\不及格\。

完成所有操作后，诸按“Ctrl+S”保存。 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

必修1_16、编写程序，求函数y的值(当x<=0时,y=3x+1;当x>0时，y=4x+1)。

第 17 页 共 20 页

程序：

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

必修2_16、编写程序，求y=6x-5的值。(x的值在程序中调用InputBox函数，在 弹出的标准输入对话框中输入) 程序：

Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox(“请输入变量x”)) y = 6*x – 5 Print “y=”; End Sub

必修3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多 吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最 初共有多少个桃子。

完成所有操作后，诸按“Ctrl+S”保存。 程序：

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

必修4_16、完善按钮“计算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

必修5_16、请将按钮\计算1+2+??+100\的Click事件程序中的\常量\和\变量\换成 正确的常量和变量，当单击命令按钮时Text1显示1+2+\的 值。

完成所有操作后，诸按“Ctrl+S”保存。 Private Sub Command1_Click( ) Dim a As Integer Dim I As Integer a = 0

For i = 1 To 100

第 18 页 共 20 页

a = a + i Next i

Text1.Text = a

必修4_18、编写程序，当在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 c = Text2.Text x = b * b – 4 * c Text3.Text = x End Sub

必修1_17、编程计算 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

必修2_17、编写程序，求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

必修3_17、编程计算s = 1*2+2*3+3*4+??+n*(n+1)的值，其中n =10 Private Sub Form_Click() Dim s As Single Dim i As Integer

第 19 页 共 20 页

s = 0

For i = 1 To 10

s = s + i * (i +1); Next i

Print “s=”;s End Sub

必修1_18、编程求:鸡和兔在一个笼里，共有腿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 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

必修2_18、编写递归函数求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

必修3_18、编写递归函数求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 页