vb题型参考.doc

一 选择题(20)1. 下列变量名中，合法的变量名是（a ） ac24 b.a b c.a：b d.1+2 2. 请问将数据输出显示的时候，以下哪种方式不适用？da. 标签label b.文本框textbox c.msgbox函数 d.inputbox函数3. 以下哪个函数计算结果不是6？da.len（vb.net） b.int(6.5) c.15 mod 9 d.15 / 9 4. 若要使命令按钮不可用，则可设置其（c）属性为false来实现。 、value、cancel、enabled、default 5. 如下数组声明语句中，正确的是a。adim a(3, 4) as integerbdim a3, 4as integecdim a(3, 4) as integeddim a(34) as intege6. 下列控件中，没有text属性的是 d 。 a框架b列表框 c单选框d定时器7. 在设计状态，列表框中的选项可以通过c属性设置alist bitems.count citems dtext8. 要调整某控件的宽度，应修改 c 属性。atop bleft cwidth dheight9. 设置计时器时间间隔的属性是c。aenabled bname cinterval dmodifiers10. 已知a=12，20，复合赋值语句“a*=b+10”执行后，a变量中的值为 b 。a50 b250 c30 d360二、综合题(30)1.数学表达式a=x=a and x=b2. 过程和函数的区别有哪些？ 子过程与函数特点（异同）： 子过程sub，不直接返回值或者传递多个值； 函数function直接返回一个值。 都是完成特定功能的程序代码段。3. 在vb中如何表示？4. 计算下列循环语句的次数for i=-1 to 18 strp 35. for i=1 to 10 a: k=k+1 for j=1 to 3 b: m=m+knext jnext i请问a执行了几次，b执行了几次？10,30三、读程题（3*54=12）1.请写出程序运行后的结果private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim i%, s$ dim s1 as string = for i = 1 to 5 s = mid(s1, 1, 11 - 2 * i) label1.text &= space(2 * i) & s & vbcrlf next for i = 1 to 4 s = mid(s1, 1, 2 * i + 1) label1.text &= space(10 - 2 * i) & s & vbcrlf nextend sub2. private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim a(5, 5) as integer dim i%, j% for i = 1 to 3 for j = 1 to 4 a(i, j) = i * j label1.text &= a(i, j) & next label1.text &= vbcrlf next end sub当单击命令按钮后，标签中显示内容为：3.用户点击button1后出现什么结果？private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim i as integer for i = 5 to 1 step -0.8 textbox1.text &= int(i) next iend sub543214.用户点击button1后出现什么结果？public sub proc(byref a%() static i% do a(i) = a(i) + a(i + 1) i = i + 1 loop while i 2 end sub private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim i%, x%(10) for i = 0 to 4 : x(i) = i + 1 : next i for i = 1 to 2 : call proc(x) : next i for i = 0 to 4 : label1.text &= x(i) & : next i end sub35745四、编程题(38)1.税务部门征收所得税，规定如下：收入在200元以内，免征；收入在200400元内，超过200元的部分纳税3%；收入在4004000元内，纳税4%；收入在4000元或超过时，税金为5%。 由输入对话框输入的收入金额，编程计算并用输出对话框输出总的纳税金额。2. 要求输入加班总时间，加班时间控制在8小时之内的整数，如果加班时间小于2小时，按照30/小时计算；如果加班时间大于2小时，按照20/小时计算，请设计界面并计算用户的加班收入。 3. 随机产生20个10，100之间的整数，输出这20个数，并求这批数的最大值及最大值位置。4.查找用户输入的一行文字中是否含有“vb”，如果有，输出“vb”出现的次数。1.private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim myincome as single dim mytax as single myincome = val(textbox1.text) if myincome = 200 then mytax = 0 elseif myincome = 400 then mytax = (myincome - 200) * 0.03 elseif myincome = 4000 then mytax = (myincome - 200) * 0.04 else mytax = (myincome - 200) *0.05 end iftextbox2.text = mytax end subend class3. 数组一public class form1 private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load dim a%(19) dim i% dim max% randomize() for i = 0 to 19 a(i) = int(rnd() * 91) + 10 textbox1.text &= a(i) & space(2) next textbox1.text &= vbnewline max = a(0) for i = 1 to 9 if max 0) count = count + 1 st = mid(st, i + 1) i = instr(st, vb ) loop end function sub procthe(byval st$, byref count%) dim i% count = 0 i = instr(st, vb ) do while (i 0) count = count + 1 st = mid(st, i + 1) i = instr(st, vb ) loop end sub private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click textbox2.text = count(textbox1.text) end sub pr