高中信息技术会考vb选修操作题答案

1、算法与程序设计（VB）刘晗 高二全体 2008-11-10第一套第15题请编写程序，打印出下面所示的图案。*完成所有操作后，请按“Ctrl+S”保存。程序如下：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

2、End Sub(说明：i表示行数，j表示输出的“*”数)第16题编写程序，求函数y的值（当x小于等于0时，y=3x+1；当x>0时，y=4x+1）。完成所有操作后，请按“Ctrl+S”保存。（x的值在程序中调用InputBox函数，在弹出的标准对话框中输入）程序如下：Private Sub Form_Click() Dim x As Single '定义x为单精度型变量，由标准输入对话框输入 Dim y As Single '定义y为单精度型变量，值由窗体显示 x = Val (InputBox("请输入变量x的值") If x <= 0 The

3、n y = 3 * x + 1 Else y = 4 * x + 1 End If Print "y=" yEnd Sub（说明InputBox中输入的是字符串型，用Val函数将其转换成数值型。）第17题编程计算S=1-2+3-4+5-······+99-100。完成所有操作后，请“Ctrl+S”保存。程序如下：Private Sub Form_Click() Dim s As Integer '定义变量s为单精度型 Dim i As Integer '定义循环变量 s = 0 For i = 1

4、To 100 If i Mod 2 = 1 Then s = s + i Else s = s i End If Next i Print "s=" sEnd Sub第18题编程求：鸡和兔在一个笼里，共有100条腿，40个头，问鸡有几只？兔有几只？完成所有操作后，请“Ctrl+S”保存。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

5、 For Tu = 1 To 25 Leg = Ji * 2 + Tu * 4 '计算腿数 Head = Ji + Tu '计算头数 If Leg = 100 And Head = 40 Then '如果腿数够100并且头有40个，则打印 Print "鸡" Ji; "只", "兔" Tu; "只" End If Next Tu Next JiEnd Sub第二套第15题设计一个程序，打印下面所示图案。 * * * *private sub form_click()Dim I As Inte

6、gerDim j As IntegerFor I= -3 to 2_Print tab(abs(i)+5)For j=1 to 2*(3- abs(i) -1)Print “*” ;Next jPrintNext IEnd sub第16题编写程序，求y=6*x-5的值。（x的值在程序调用中调用inputbox函数，在弹出的标准输入对话框中输入）。Private sub form_click()Dim x as singleDim y as singleX= val (inputbox(“请输入变量x”)Y= 6*x-5 Print “y=”; y_End sub第17题编写程序求1+2+3+.

7、+n>=500中 最小的n.Private sub form_click()dim s as integerdim n as integers= 0_n=0don=n+1s= s+n_loop until s>500print “n=”;nend sub第18题编写递归函数求5!的值。Public function s(n as integer) as longIf n=1 thenS= 1 ElseS= s(n-1)*n End ifEnd function Private sub form_click()Print “s(10)=” ; s(5) End sub第三套第15题设

8、计一个程序，打印下面所示的图案完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量Dim j As IntegerFor i = 1 To 6 Print Tab(10); For j = 1 To i Print "" Next jPrintNext iEnd Sub第16题一只猴子摘了一堆桃子，它每天吃当天桃子的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作

9、后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer '定义天数变量Dim s As Integer '定义s为桃子总数结果由窗体输出s = 1For i = 1 To 9 s = (s + 1) * 2Next iPrint "s=" sEnd Sub第17题编程计算s=1*2+2*3+3*4+n*(n+1)的值，其中n=10。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim s As Single '和，定义变量s为单精度型Dim i As Inte

10、ger '定义变量s = 0For i = 1 To 100s = s + i * (i + 1)Next iPrint "s=" sEnd Sub第18题编写递归函数求10！的值。完成所有操作后按“Ctrl+S”保存。Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else s = s(n - 1) * n End If End FunctionPrivate Sub Form_Click() '调用递归函数，显示结果 Print "s(10)=" s(10)End

11、 Sub第四套第15题完善“显示”按钮的click程序，将代码段中“变量1”，“变量2”，“变量3”处换成正确的变量名，使当单击该按钮时，Label1、Label2分别显示30、10.完成所有操作后，请按“Ctrl+5”保存。Private sub command_click()X=10Y=30If x<y thenT=XX=YY=TEnd IfLabel1.caption=xLabel2.caption=yEnd Sub第16题完善按钮“计算7！”的Click事件程序，当单击命令按钮时Text1显示7！的值。完成所有操作后，请按“Ctrl+5”保存。private sub comman

12、d_click()Dim a As IntegerDim I As IntegerA=1For I=1 to 7A=a*INext IText1.Text=aEnd Sub第17题利用属性窗口进行如下修改：1、 窗体的标题改为“江苏省中小学信息技术等级考试”；2、 将标签字体、字号设置为“楷体”“四号”。完善程序：使当单击窗体时标签显示“算法与程序设计”完成所有操作后，请按“Ctrl+5”保存。第18题编写程序，当在Text1中输入X的值后，单击“计算”按钮，求y=3x-5的值。完成所有操作后，请按“Ctrl+5”保存。private sub command1_click()Dim x As

13、singleDim y As singleX=val(Text1.Text)Y=Abs(3*x-5)Text2.Text=yEnd Sub第五套第15题完善“判断”按扭的click程序，使当从Text1中输入一个数时，当该数大于或等于60时在lable1中显示“及格”，该数小于60时在lable1中显示“不及格”。Private Sub Command_Click() Dim a As Single 定义变量a a=val(Text1.text) 从Text1中读入这个数，并保存在变量a中 If a>=60 ThenLable1.caption=”及格” Endif If a<60

14、 ThenLable1.caption=”不及格” EndifEnd Sub第16题请将按扭“计算1+2+100”的Click事件程序中的“常量”和“变量”换成正确的“常量”和“变量”，当单击命令按扭时Text1显示1+2+100的值。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 end sub第17题对窗体Form1进行如下修改：1、 在窗体中增加一个标签；2、 设置标签的对齐方式为“居中对齐”；（做法：选中标签将其属性栏中的“Alignment”属性值选择为“2-center”）3、 完善“显示”按扭程序，使当单击该按扭时标签标题改为“算法与程序设计”；Private Sub Command1_Click()Label1.caption=”算法与程序设计”End sub第18题在已打开的窗体Form1中，在窗体中增加