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

算法与程序设计（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 End Sub (说明：i表示行数，j表示输出的“*”数) 第16题 编写程序，求函数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 = 0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=; y End 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 To 100 If i Mod 2 = 1 Then s = s + i Else s = s – i End If Next i Print s=; s End 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 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 Ji End Sub 第二套 第15题 设计一个程序，打印下面所示图案。 * *** ***** *** * private sub form_click() Dim I As Integer Dim j As Integer For I= -3 to 2__ Print tab(abs(i)+5) For j=1 to 2*(3- abs(i) -1) Print “*” ; Next j Print Next I End sub 第16题 编写程序，求y=6*x-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=”; y_ End sub 第17题 编写程序求1+2+3+……..+n=500中 最小的n. Private sub form_click() dim s as int