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 ...