《高中信息技术会考vb选修操作题答案》由会员分享，可在线阅读，更多相关《高中信息技术会考vb选修操作题答案（7页珍藏版）》请在金锄头文库上搜索。
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 iEnd Sub(说明：i表示行数，j表示输出的“*”数)第16题
2、编写程序，求函数y的值（当x小于等于0时，y=3x+1；当x0时，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 =500中 最小的n.Private sub form_click()dim s as integerdim n as integers=
3、 0_n=0don=n+1s= s+n_loop until s500print “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题设计一个程序，打印下面所示的图案完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定义i为
4、整型变量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题一只猴子摘了一堆桃子，它每天吃当天桃子的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定义天数变量Dim s As Integer 定义s为桃子总数结果由窗体输出s = 1For
5、 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 Integer 定义变量s = 0For i = 1 To 100s = s + i * (i + 1)Next iPrint s=; sEnd Sub第18题编写递归函数求10！的值。完成所有操作后按“Ctrl+S”保存。Public Function s(
6、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 Sub第四套第15题完善“显示”按钮的click程序，将代码段中“变量1”，“变量2”，“变量3”处换成正确的变量名，使当单击该按钮时，Label1、Label2分别显示30、10.完成所有操作后，请按“Ctrl+5”保存。Private sub command_click()X=10Y=30If x=60 Th
7、enLable1.caption=”及格” Endif If a60 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题在已打开的窗体
