三年级VB练习二

发布 2022-11-12 17:15:28 阅读 7326

vb练习二。

一、填空。1、在一个语句内写多条语句时,每个语句之间分隔符号是()2、注释语句有___和___两个,续行符采用3、在vb中赋值语句即可以给___赋值,也可以给对象的___属性赋值。

4、将用一个符号pi代替3.1415926,使用的定义符号常量语句是。

5、b$=”beijing123456hello!”b$=mid$(a$,8,4)c$=”right$(a$,6)

print b$+c$的输出结果是。

6、要使下列for循环执行10次,循环变量的初值应当是for k=to-5step-27、下面程序for x=2to 7 step2x=x+2printxnextx

共执行循环次,运行时输出的结果是8、x=x+1的含义是9、下列循环结构控制的循环次数是。

i=1doi=i+1

loopuntil i=10

10、输出语句有双重功能。11、结束应用程序的语句是。

二、选择。1、下面正确的赋值语句是()

a、x y=30b、y=rrc、y=x 30d、3y=x

2、为了给三个变量赋初值1,下面正确的赋值语句是()

a、x=1:y=1:z=1b、x=1,y=1,z=1c、x=y=z=1d、xyz=13、分支结构的程序在进行判断后可分别控制程序有()个以上的走向。a、1b、2c、3d、8

4、语句ifx=1theny=1,下列说法正确的是()。

a、x=1和y=1均为赋值语句b、x=1和y=1均为关系表达式。

c、x=1为关系表达式,y=1为赋值语句d、x=1为赋值语句,y=1为关系表达式。

、若要退出for循环,可使用的语句为()。a、exitb、exitdoc、timed、exitfor6、下列程序段执行的结果是x=10y=20

if x>20 then if y>20 then x=x*3 else x=x\2print x

a.10b.20c.5d.307、下列正确的语句是()

a ifx≠ythenprint“x不等于y”bifx>then print“x不等于y”difx<> print“x不等于y”8、if结构的结束语句是()

a end select b end sub c end if d end do9、下面程序运行时,若输入395,则输出的结果是:()private sub xommand1_click()dim x$

x=inputbox(“请输入一个3位数”)print x mod 10 ,x\100, (x mod 100)\10a 3 9 5 b 5 3 9c 5 9 3 d 3 5 910、下面程序计算输出的是()

private sub command1_click()a=10s=do

s=s+a*a*aa=a-1

loop until a<=0end sub

a 13+23+33+103b 1!+2!+3!+10!c(1+2+3+)3d 10个103的和。

三、判断。1、if条件then语句1else语句2中语句1和语句2可能同时执行()

2、selectcase语句中至少有一个分支执行()3、print后必须有表达式()

4、print x=x+3是一个输出语句和一个赋值语句()5、doloop while条件循环中循环体至少执行一次()6、for循环的循环体可以为空()7、while循环至少循环一次()

8、当step步长为0时,步长可省略()四、程序阅读题(写出下列程序的运行结果)程序1.请写出单击窗体后,窗体上的显示结果。private sub form_click()

dim x as integer, y as integerx = 5y = 20

if not x > 0 then x = y - 3 else y = x + 3print x - y; y - xend sub

程序2.请写出单击窗体后,窗体上的显示结果。private sub form_click()

dim a as string, b as stringa = abcd"b = cdef"e = right(a, 3)

f = mid(b, 2, 3)

if e < f then print e + f else print f + eend sub

程序3.请写出单击窗体后,窗体上的显示结果。private sub form_click()dim i as integer, j as integerdim n as integern = 0for i = 1 to 3

for j = 5 to 1 step -1n = n + 1next j, iprint n; j; iend sub

程序4.请写出单击窗体后,窗体上的显示结果。private sub form_click( )dim i as integerstatic sum as integerfor i=1 to 10

sum= sum+inext iprint sumend sub

程序5.请写出单击命令按钮后,窗体上的显示结果。private sub command1_click()dim s as integer, i as integers = 1

i = 1do while i <=4s = s * ii = i + 1loopprint "s=";send sub

程序6.请写出单击命令按钮后,窗体上的显示结果。private sub command1_click()dim i as integerdo until i >=3print tab(4 * i + 1); a"i = i + 1loopend sub

7、dim a asinteger

privatesubcommand1_click()staticsasinteger

ifs<5 thens=s+aelses=s*aend ifa=sendsub

privatesub form_load()a=5endsub

当连续按三次command按钮后,s的值是。

8、运行下面程序后,单击窗体,显示结果是。

privatesubform_click()dimnn=0

whilen<20n=n+1wend? nend sub

9、若s、i均为整型变量,执行下列程序后s的值是。

s=0i=1dos=s+ii=i+1

loopuntil i>5

10、在窗体上画一个命令按钮,名称为command1。然后编写如下程序:private sub command1_click()for a=1 to 4for b=0 to aprint chr(65+a)next bprintnext aend sub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是什么?

11、在窗体上画一个名称为commandl的命令按钮,然后编写如下程序:private sub command1_click()static x as integerstatic y as integer

clsy=1y=y+5x=5+xprint x,yend sub

请写出程序运行时,三次单击命令按钮commandl后,窗体上显示的结果。

五、请用正确的内容填空:

1、下面程序的功能是利用随机函数产生10个(1-200)之间的随机整数,打印其中7的整数倍的数并求其和,privatesubform_click()for i=1 to 10

x=int(rnd()*200)+1

ifthenk1=__printxend ifnextiprintprint“k1=”;k1end sub

2、以下程序的功能是:从键盘上输入若干个学生的考试分数,统计并输出最高分和最低分数,当输入负数时结束输入,输出结果,请将程序补充完整。

privatesubform_click()

dimx,amax , aminassinglex=inputbox(“输入一个分数”)amax=x :amin=x

dowhileifx>amaxthenamax=xend if

ifthenamin=xend if

x=inputbox(“输入一个分数”)loop

print“amax=”;amax,”amin=”;aminendsub六:程序设计1、计算1 (x>0)

y= 0 (x=0)-1 (x<0)

3、随机产生10个3-200之间的随机数,求其中的最大值;

4、求s=1+2+3+4+直到s的值大于1000时,不再累加。

三年级练习二

导学案。课题 练习二 学习目标 1.学习 口语交际 当有人敲门时。2.学写毛笔字。练好基本笔画 竖 预习案 自学导航1 看图,读题,想一想 这次口语交际让我们交流什么?2 具体经过是什么?3 这样做对不对?为什么?4 学生读帖,总结要点。预习测试题 第一组组长推选下一组任意一名组员,回答自学导航中的...

三年级语文练习 二

三年级语文 s版 练习 二 一 正音练习。写出下面画线字的拼音。二 形近字组词。雀猜继趴虎猴。省请断扒虑喉。肯追续免寻猪。背迫卖兔导猎。烂逃脑悉扑吵。拦桃恼恶仆沙。躺邻端狐疑拨。淌岭喘呱凝拔。三 多音字。上写拼音,在括号内组词。行露角夹。尽藏假处。铺壳逮场。干曲闷抹。四 仿写。东张西望 成语中含有相...

三年级上练习二

姓名班级。一 看拼音写词。ji n lu r n qi l n m j sh su j zh f f n z n xi o f n t n zh li n shi b fen b i f n r n r n m hu su f n pi o d n j n xi n k i f n p b j d ...