内蒙对口升学计算机VB模拟试题九带答案.pdfVIP

26.multiline属性决定文本框是否可以接受多行文本。

27.alignment属性设置为单选按钮和复选框的标题显示在左边。.

28.设设设

c$=b$Space(1)UCase(Mid$(a$,12,1))Right(a$,11)

则变量c$的值是

29.下面程序的运行结果为

PrivateSubCommand1_Click()

Dimx%,y%

x=18

y=28

Callswap(x,y)

Printx

EndSub

PrivateSubswap(a%,b%)

Dimt%

t=a

a=b

b=t

30．执行下面程序，第一行输出结果是第二行输出结果是。

OptionExplicit

PrivateSubForm_Click()

DimMAsInteger，NAsInteger，KAsInteger

N=-3

ForM=6To1StepN

M=M+1

N=N-M

K=K+1

NextM

PrintK

PrintN

EndSub

31．执行下面程序，第一行输出结果是，第三行输出结果是。

PrivateSubForm_Click()

DimNAsInteger，IAsInteger

N=2

ForI=9To1Step-1

CallSub2(I,N)

PrintI，N

NextI

EndSub

PrivateSubSub2(XAsInteger,YAsInteger)

StaticNAsInteger

DimIAsInteger

ForI=3To1Step-1

N=N+X

X=X-1

NextI

Y=Y+N

EndSub

32.执行下面程序，单击窗体，则在窗体上显示的内容是__。

PrivateSubForm_Click(0

DimaAsInteger,bAsinteger,cAsInteger

b=6:c=6.5

a=b=c

Printa

EndSub

VB语言程序设计综合练习三

程序填空题

1.题目：文本框txtin输入一个十进制整数将其转化为二进制数。程

序运行界面如下图所示。单击“转换”按钮，标签lblre中输出二进

制数。

PrivateSubCommand1_Click()

DimnAsLong

n=Val(txtin.Text)

DOWhilen0

r=

lblre.Caption=rlblre.Caption

LOOP

EndSub