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

算法与程序设计(VB)

刘晗高二全体2008-11-10

第一套

第15题

请编写程序，打印出下面所示的图案。

*

**

***

**

*

完成所有操作后，请按“Ctrl+S”保存。

程序如下:

PrivateSubForm_Click()

DimiAsInteger定义i为整形变量

DimjAsInteger定义j为整形变量

Fori=-3To3

PrintTab(Abs(i)+5)确定每行的起始位置

Forj=1To(4-Abs(i))-1

Print*;

Nextj

Print换行

Nexti

EndSub

(说明:i表示行数，j表示输出的“*”数)

第16题

编写程序，求函数y的值(当x小于等于0时，y=3x+1;当x0时，y=4x+1)。完成所有操

作后，请按“Ctrl+S”保存。(x的值在程序中调用InputBox函数，在弹出的标准对话框中

输入)

程序如下:

PrivateSubForm_Click()

DimxAsSingle定义x为单精度型变量，由标准输入对话框输入

DimyAsSingle定义y为单精度型变量，值由窗体显示

x=Val(InputBox(请输入变量x的值))Ifx=0Then

y=3*x+1

Else

y=4*x+1

EndIf

Printy=;y

EndSub

(说明InputBox中输入的是字符串型，用Val函数将其转换成数值型。)第17题

编程计算S=1-2+3-4+5-??????+99-100。完成所有操作后，请“Ctrl+S”保存。

程序如下:

PrivateSubForm_Click()

DimsAsInteger定义变量s为单精度型

DimiAsInteger定义循环变量

s=0

Fori=1To100

IfiMod2=1Then

s=s+i

Else

s=s–i

EndIf

Nexti

Prints=;s

EndSub

第18题

编程求:鸡和兔在一个笼里，共有100条腿，40个头，问鸡有几只,兔有几只,完成所有

操作后，请“Ctrl+S”保存。

PrivateSubForm_Click()

DimJiAsInteger鸡

DimTuAsInteger兔

DimLegAsInteger腿数

DimHeadAsInteger头数

ForJi=1To50

ForTu=1To25

Leg=Ji*2+Tu*4计算腿数

Head=Ji+Tu计算头数

IfLeg=100AndHead=40Then如果腿数够100并且头有40个，则打印

Print鸡;Ji;只,兔,;Tu;只

EndIf

NextTu

NextJi

EndSub

第二套

第15题

设计一个程序，打印下面所示图案。

*

***

*****

***

*

privatesubform_click()

DimIAsInteger

DimjAsInteger

ForI=-3to2__

Printtab(abs(i)+5)Forj=1to2*(3-abs(i)-1)

Print“*”;

Nextj

Print

NextI

Endsub

第16题

编写程序，求y=6*x-5的值。(x的值在程序调用中调用inputbox函数，在弹出的标准输入

对话框中输入)。

Privatesubform_click()

Dimxassingle

Dimyassingle

X=val(inputbox(“请输入变量x”))Y=6*x-5

Print“y=”;y_

Endsub

第17题

编写程序求1+2+3+……..+n=500中最小的n.

Privatesubform_click()

dimsasintegerdimnasintegers=0_

n=0

do

n=n+1

s=s+n_

loopuntils500

print“n=”;n

endsub

第18题

编写递归函数求5!的值。

Publicfunctions(nasinteger)aslong

Ifn=1then

S=