常见VB考试题型.pdf

》》》》》》备考资料word版——2024年最新整理《《《《《《

1输入半径,求圆面积和球体积。

PrivateSubForm_Load()

DimrAsSingle,sAsSingle,vAsSingle

rInputBox(请输入半径r：,输入数据)

s3.14*r^2

v4/3*r^3*3.14

Print圆面积为:;s

Print球体积为:;v

MsgBox(圆面积为:sSpace(2)球体积为:v)

EndSub

2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y中。

PrivateSubCommand1_Click()

Print比较前:

XInputBox(请输入X)

YInputBox(请输入Y)

PrintX;X,Y;Y

IfXYThen

ZY

YX

XZ

EndIf

Print比较后:

PrintX;X,Y;Y

EndSub

3判断一个整数的奇偶性

PrivateSubForm_Click()

xVal(InputBox(请输入一个数;))

IfxMod20Then

MsgBox(x是偶数)

Else

MsgBox(x是奇数)

EndIf

EndSub

4帐号和密码

PrivateSubCommand1_Click()

IfText1.Text12345Then

IfText2.Text12345Then

》》》》》》备考资料word版——2024年最新整理《《《《《《

MsgBox登录成功,64+1,登录

Else

MsgBox密码错误,请重新输入,16

EndIf

Else

MsgBox用户不存在,16+1,登录

EndIf

EndSub

5判断一个数是整数还是小数，如果是整数再判断其奇偶性。

PrivateSubForm_Click()

xInputBox(请输入一个数;)

IfInStr(1,x,.)0Then

IfxMod20Then

MsgBox(x是整数,是偶数！)

Else

MsgBox(x是整数,是奇数！)

EndIf

Else

MsgBox(x是小数)

EndIf

EndSub

6书店优惠售书

PrivateSubCommand1_Click()

DimxAsSingle,yAsSingle

xVal(Text1.Text)

SelectCasex

CaseIs100

yx*0.8

CaseIs200

yx*0.7

CaseIs300

yx*0.5

CaseElse

yx*0.3

EndSelect

Label3.Captiony元

EndSub

7设计一个计程车收费程序

》》》》》》备考资料word版——2024年最新整理《《《《《《

PrivateSubCommand1_Click()

XVal(Text1.Text)

SelectCaseX

CaseIs3

Label3.Caption6

CaseIs30

Label3.Caption6+(X-3)*1.5

CaseElse

Label3.Caption6+27*1.5+(X-30)*2

EndSelect

EndSub

8输入10个数，输出累加之和。

PrivateSubCommand1_Click()

DimSAsSingle,iAsInteger,xAsSingle

S0

Fori1To10

xVal(InputBox(请输入第i个数))

Print第i个数x

SS+x

Nexti

Print十个数累加之和为S

EndSub

9输入10个数，输出偶数之和。

PrivateSubCommand1_Click()

DimSAsSingle,xAsSingle

DimnAsInteger,iAsInteger

S0

Fori1To1