VB填空题.docx

VB填空题.docx

《VB填空题.docx》由会员分享，可在线阅读，更多相关《VB填空题.docx（37页珍藏版）》请在冰豆网上搜索。

VB填空题

信息技术VisualBasic练习

（1）班级_______学号____姓名__________

01.有如下VisualBasic程序段：

 a=30

 b=20

 a=b

该程序段运行后，变量a的值为________。

02.有如下VisualBasic程序段：

a="Good"

b="Bye"

c=a+b

该程序段运行后，变量c的值是________。

03.有如下VisualBasic程序段：

 a=15

 b=5

 a=a-b

该程序段运行后，变量a的值是________。

04.有如下VisualBasic程序段：

x="Note"

y="book"

z=x+y

该程序段运行后，变量z的值是_________。

05.有如下VisualBasic程序段：

 e=3

 f=7

 h=5

 s=（e+f）*h/2

该程序段运行后，变量s的值为________。

06.有如下VisualBasic程序段：

x=2*3

y=10/5

x=x+y

该程序段运行后，变量x的值为________。

07.有如下VisualBasic程序段：

 DimaAsSingle,pyAsString

 a=Val（Text1.Text）

 Ifa>0Thenpy="正数"

 Ifa=0Thenpy="零"

 Ifa<0Thenpy="负数"

 Label1.Caption=py

在文本框Text1中输入100，则在Label1标签上显示的是______。

08.有如下VisualBasic程序段：

    x=3  

    Ifx>5Then 

      y=x*x

    Else

      y=4*x

    End If

该程序段运行后，变量y的值是_______。

09.有如下VisualBasic程序段：

x=110

Ifx>100Then

Label1.Caption="你超速了!

"

Else

Label1.Caption="你没超速!

"

EndIf

该程序段运行后,Label1标签上显示为_______。

10.有如下VisualBasic程序段：

 a=5

 b=10

 max=a

Ifb>maxThenmax=b

该程序段运行后，变量max的值为________。

11.有如下VisualBasic程序段：

a=2

b=5

Ifa>bThenm=aElsem=b

该程序段运行后,变量m的值为_________。

12.有如下VisualBasic程序段：

 Fori=lTo10

   a（i）=i

 Nexti

该程序段运行后，数组变量a（5）的值为________。

13.有如下VisualBasic程序段：

  DimxAsInteger,yAsInteger

  x=-8

  Ifx<=0Then

     y=-1

  Else

     y=x-1

  EndIf

该程序段运行后,变量y的值是________。

14.有如下VisualBasic程序段：

  DimphAsSingle

  ph=8

 Ifph>7ThenLabel1.Caption="碱性"

 Ifph=7ThenLabel1.Caption="中性"

 Ifph<7ThenLabel1.Caption="酸性"

该程序段运行后，Label1标签上显示的是________。

15.以下VisualBasic程序的功能是：

计算表达式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处的语句应更正为__________。

PrivateSubCommand1_Click（）

DimiAsInteger,sumAsLong

sum=0

Fori=1To10

sum=sum*i

Nexti

Text1.Text=Str（sum）

EndSub

16.下面程序的功能是：

计算表达式1+3+5+…+（2n-1）的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。

则程序中划线处的语句应更正为___________________。

PrivateSubCommand1_Click（）

DimsumAsLong,iAsInteger,nAsInteger

sum=0

n=Val（Text1.Text）

Fori=1To2*n-1Step2

sum=sum+2

Nexti

Text2.Text=Str（sum）

EndSub

17.下面VisualBasic程序的功能是：

计算表达式1+1/3+1/5+…+1/99的值，并在文本框Text1中输出该表达式的值。

为了实现这一功能，程序中划线处的语句应更正为____________________________。

PrivateSubCommand1_Click（）

DimsumAsSingle，iAsInteger

sum=0

Fori=1To99Step2

sum=sum+i

Nexti

Text1.Text=Str（sum）

EndSub

18.下面是一段VisualBasic程序：

PrivateSubCommand1_Click（）

 DimsumAsDouble，iAsInteger

 sum=0

 Fori=1To5

   sum=sum+i*i

 Nexti

 Text1.Text=Str（sum）

EndSub

该程序运行后，语句sum=sum+i*i共执行了__________次。

19.下面VisualBasic程序的功能是：

计算表达式1+1/2+1/3+…+1/100的值，并在文本框Text1中输出表达式的值。

为了实现这一功能，程序中划线处的语句应更正为________________。

PrivateSubCommand1_Click（）

DimsumAsDouble，iAsInteger

sum=0

Fori=1To100

sum=sum+i

Nexti

Text1.Text=Str（sum）

EndSub

20.下面程序的功能是：

计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。

为了实现这一功能，程序中划线处的语句应更正为_________________。

PrivateSubCommand1_Click（）

DimiAsInteger，tAsLong

t=0

Fori=1To10

t=t*i

Nexti

Text1.Text=Str（t）

EndSub

信息技术VisualBasic练习

（2）班级_______学号____姓名__________

01.下面VisualBasic程序的功能是：

计算表达式1×2+3×4+5×6+7×8+9×10的值。

运行该程序后，语句sum=sum+i*（i+1）共执行了_____________次。

PrivateSubCommand1_Click（）

 DimsumAsInteger，iAsInteger

 sum=0

 Fori=1To9 Step2

   sum=sum+i*（i+1）

 Nexti

 Text1.Text=Str（sum）

EndSub

02.下面VisualBasic程序的功能是：

计算表达式1×2+2×3+3×4+……+8×9+9×10的值，并在文本框Text1中输出表达式的值。

该程序运行后，程序中的语句sum=sum+i*（i+1）共执行了________次。

PrivateSubCommand1_Click（）

 DimsumAsInteger，iAsInteger

 sum=0

 Fori=1To9

   sum=sum+i*（i+1）

 Nexti

 Text1.Text=Str（sum）

EndSub

03.下面VisualBasic程序的功能是：

求1～20以内的奇数和。

运行该程序后，语句sum=sum+i共执行了________次。

PrivateSubCommand1_Click（）

 DimsumasInteger,iasInteger

 sum=0

 Fori=1To20Step2

   sum=sum+i　　

 Nexti

 Text1.Text=Str（sum）

EndSub

04.下面VisualBasic程序的功能是：

计算表达式1/2+1/4+…+1/100的值，并在文本框Text1中输出结果。

运行该程序后，语句sum=sum+1/（2*i）共执行了________次。

PrivateSubCommand1_Click（）

 DimsumAsDouble,iAsInteger

 sum=0

 Fori=1To50

   sum=sum+1/（2*i）

 Nexti

 Text1.Text=Str（sum）

EndSub

05.下面是一段VisualBasic程序：

  PrivateSubCommand1_Click（）

  DimiAsInteger,tAsSingle

  t=0

  Fori=1To5

    t=t+（2*i-1）/（2*i+1）

  Nexti

  Text1.Text=Str（t）

  EndSub

该程序运行后，语句t=t+（2*i-1）/（2*i+1）共执行了______次

06.下面是一段VisualBasic程序：

 PrivateSubCommand1_Click（）

   DimfacAsInteger,iAsInteger

   fac=1

   i=1

   DoWhilei<=5

      fac=fac*i

      i=i+1

   Loop

   Text1.Text=Str（fac）

 EndSub

该程序运行后，语句fac=fac*i共执行了________次。

07.下列VisualBasic程序的功能是：

计算表达式

的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处的语句应更正为___________。

PrivateSubCommand1_Click（）

DimiAsInteger,sAsLong,kAsLong

s=0

k=0

Fori=1To10

k=k*3

s=s+k

Nexti

Text1.Text=Str（s）

EndSub

08.有如下VisualBasic程序段：

   a="Happy"

   b="ness"

   c=a+b

该程序段运行后，变量c的值是_______。

09.有如下VisualBasic程序段：

x=1.6

Ifx>0Then

x=x+2

Else

x=x-2

EndIf

该程序段运行后,变量x的值为________。

10.有如下VisualBasic程序段：

 s="Friend"

 s=s+"ship"

该程序段运行后，变量s的值是_________。

11.有如下VisualBasic程序段：

 x=-1.1

 Ifx>0ThenLabel1.Caption="Positive"

 Ifx=0ThenLabel1.Caption="Zero"

 Ifx<0ThenLabel1.Caption="Negative"

该程序段运行后,Label1标签上显示为__________。

12.有如下VisualBasic程序段：

 DimxAsSingle,cAsString

 x=Val（Text1.Text）

 Ifx>12Then

   c="PM"

 Else

   c="AM"

 EndIf

 Label1.Caption=c

该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是_______。

13.有如下VisualBasic程序段：

 a=39

 b=93

 Ifa+b>100Thenpy="太大"

 Ifa+b=100Thenpy="相等"

 Ifa+b<100Thenpy="太小"

 Label1.Caption=py

该程序段运行时，在Label1标签上显示的是______。

14.有如下VisualBasic程序段：

 s=0

 Fori=1To10

   IfiMod3=0Then s=s+I

 NextI

该程序段运行后，变量s的值为_______。

15.有如下VisualBasic程序段：

k=0

Fori=1To10

IfiMod3=0Thenk=k+1

Nexti

该程序段运行后，变量k的值为_________。

16.有如下VisualBasic程序段：

 s=0

 i=3

 DoWhiles<=10

    s=s+I

    i=i+3

 Loop

该程序段运行后，变量s的值为________。

17.有如下VisualBasic程序段：

s=0

Fori=0To4

s=s+2^i

Nexti

该程序段运行后，变量s的值为_______。

18.以下VisualBasic程序的功能是：

计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处的语句应更正为_______。

PrivateSubCommand1_Click（）

DimiAsInteger,sAsLong

s=0

k=2

Fori=1To10

s=s+k

k=k*2

Nexti

Text1.Text=Str（s）

EndSub

信息技术VisualBasic练习（3）班级_______学号____姓名__________

01.以下VisualBasic程序的功能是：

计算表达式1+2+22+23+24+25的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处For语句循环变量i的终值应更正为_____________。

PrivateSubCommand1_Click（）

DimiAsInteger,sAsLong

s=0

Fori=1to5

s=s+2^（i-1）

Nexti

Text1.Text=Str（s）

EndSub

02.下列VisualBasic程序的功能是：

计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。

为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。

PrivateSubCommand1_Click（）

DimsumAsLong

DimiAsInteger

sum=0

Fori=1To97Step

sum=sum+i*i

Nexti

Text1.Text=Str（sum）

EndSub

03.以下VisualBasic程序的功能是：

计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处的语句应更正为________。

PrivateSubCommand1_Click（）

DimaAsInteger,sAsLong

s=0

a=1

DoWhilea<=1024

s=s+a

a=a+2

Loop

Text1.Text=Str（s）

EndSub

04.以下VisualBasic程序的功能是：

计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。

为了实现这一功能，程序中划线处的表达式应更正为___________。

PrivateSubCommand1_Click（）

DimiAsInteger,sAsLong

s=0

i=1

DoWhilei<=1024

s=s+2*i

i=i*2

Loop

Text1.Text=Str（s）

EndSub

05.以下VisualBasic程序的功能是：

找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。

为了实现这一功能，程序中划线处的语句应更正为_______。

PrivateSubCommand1_Click（）

DimiAsInteger,sumAsInteger

sum=0

Fori=1to100

IfiMod3=0Thensum=sum+3

Nexti

Text1.Text=Str（sum）

EndSub

06.有如下VisualBasic程序段：

 a="Test"

 b="is"

 c="easy"

 c=a+b+c

该程序段运行后，变量c的值为____________。

07.有如下VisualBasic程序段：

 a=5:

b=4:

c=7

 s=a+b

 Ifs>cThen

   Label1.Caption="初检合格"

 Else

   Label1.Caption="重新调试"

 EndIf

该程序段运行后，在标签Label1上显示的是____________。

08.有如下VisualBasic程序段：

 x=5001

 s=1

 Ifx>5000Thens=s+1

 Label1.Caption=Str（s）

该程序段运行后，在标签Label1上显示的是_________。

09.有如下VisualBasic程序段：

a=3:

b=4:

c=5

Ifa>bAndb>cThen

 Label1.Caption="happy"

Else

 Label1.Caption="better"

EndIf

 该程序段运行后，在标签Label1上显示的是____________。

10.有如下VisualBasic程序：

PrivateSubCommand1_Click（）

 DimsAsInteger,tAsInteger

 t=1:

s=0

 Fori=1To10Step2

   t=t*2

   s=t+1

 Nexti

 Text1.Text=Str（s）

EndSub

问：

（1）程序运行后，变量s的值为_______。

（2）程序运行后，语句"t=t*2"被执行的次数为____________。

11.有如下VisualBasic程序：

PrivateSubCommand1_Click（）

 DimsAsInteger,iAsInteger

 s=1

 Fori=1To10

   s=s+1

 Nexti

 Text1.Text=Str（s）

EndSub

问：

（1）程序运行后，变量s的值为________。

（2）程序运行后，语句"s=s+1"被执行的次数为____________。

12.有如下VisualBasic程序段：

PrivateSubCommand1_Click（）

 DimiAsInteger,xAsInteger

DimsAsInteger

 x=10

 s=0

 i=0

 DoWhilei<=x

   i=i+2

   s=s+i

 Loop

EndSub

问：

（1）该程序段运行后，变量s的值为______。

（2）循环刚退出时，变量i的值为_______。

13.以下VisualBasic程序的功能是：

计算表达式1＋3＋9＋27＋81＋…2187的值，并在文本框Text1中输出计算结果。

PrivateSubCommand1_Click（）

DimiAsInteger,tAsLong

t=0

i=1

DoWhilei<=2187

t=t+i

i=i+3

Loop

Text1.Text=Str（t）

EndSub

问：

（1）为了实现这一目标，程序划线处的表达式应更正为__________。

（2）运行更正后的程序，循环刚退出时变量i的值为__________。

14.有如下VisualBasic程序：

PrivateSubCommand1_Click（）

 Dima（1To100）AsInteger,iAsInteger

DimsAsInteger

 s=0

 Fori=2To100Step2

 a（i）=i*2

 s=s+a（i）

 Nexti

 Text1.Text=Str（s）

EndSub

问：

（1）程序运行后，下标变量a（4）的值为_________。

（2）循环刚退出时，变量i的值为_________。

信息技术Visu