全国二级vb上机题库.txt

bce qq1052205362 1 vb 01 1. 21530 %user% * visual basic 1form1text1 4002000 1text1塱 2 sjt1.vbp sjt1.frm visual basicform1塣 text1height400width 2000font塱form1 壬captionmaxbuttonfalse minbuttonfalse c:wexam26990001hlpsyssjt1.vbpsjt1.frmsjt1.vbw c:wexam26990001sjt1.vbp * 2form1image1 pic1.bmp command1command2 100 100 sjt2.vbp sjt2.frm bce qq1052205362 2 visual basicform1塣 image1picturepic1.jpg stretchtruecommand1command2 caption clickclick private sub command1_click() image1.left = image1.left + 100 end sub clickclick private sub command2_click() image1.top = image1.top + 100 end sub c:wexam26990001hlpsyssjt2.vbpsjt2.frmsjt2.frxsjt2.vbw c:wexam26990001sjt2.vbp 2. 22040 %user% * 1sjt3.vbp line1 command1command2 timer1 line16 timer click bce qq1052205362 3 visual basicsjt3.vbpsjt3.frm enabledfalseinterval 1000 clickclick private sub command1_click() timer1.enabled = true end sub clickclick private sub command2_click() timer1.enabled = false end sub c:wexam26990001hlpsyssjt3.vbpsjt3.frmsjt3.vbw c:wexam26990001sjt3.vbp * 2sjt4.vbp text1 text2 visual basicsjt4.vbpsjt4.frm private sub command1_click() 1) a = mid$(text1.text, ? , 1) a = mid$(text1.text, k, 1) bce qq1052205362 4 2) ch = ch + ? ch = ch + lcase(a) 3) text2 = ? text2 = ch c:wexam26990001hlpsyssjt4.vbpsjt4.frmsjt4.vbw c:wexam26990001sjt4.vbp * 3. 130 %user% sjt5.vbp in5.txttext1 1text2 浽out5.txt out5.txt visual basicsjt5.vbpsjt5.frm clickclick private sub command2_click() a% = cint(text1.text) do a% = a% + 1 loop until isprime(a%) text2.text = a% end sub isprime function isprime(a as integer) dim flag as boolean k% = 2 flag = true while k% 0 and n “n“ private sub command2_click() 1) recnum = ? recnum = lof(1) / len(pers) 2) get #1, ? get #1, i, pers c:wexam26990001hlpsyssjt5.vbpsjt5.frmsjt5.frxsjt5.vbw c:wexam26990001sjt5.vbp 08 1. 21530 %user% * visual basic 1 form1t1 1400400 c1c2 c1 1c2 32 sjt1.vbp sjt1.frm visual basicform1塣 bce qq1052205362 30 t1height400width 1400c1c2caption clickclick private sub c1_click() t1 = “ end sub clickclick private sub c2_click() t1.height = 2 * me.t1.height t1.width = 2 * t1.width t1.fontsize = 3 * form1.t1.fontsize end sub c:wexam26990001hlpsyssjt1.vbpsjt1.frmsjt1.vbw c:wexam26990001sjt1.vbp * 2form1c1 text1text2 text1 text1text2 磬text1visual basic programming * sjt2.vbp sjt2.frm visual basicform1塣 c1caption text1text2text clickclick private sub c1_click() text1.text = lcase(text1.text) text2.text = ucase(text1.text) end sub c:wexam26990001hlpsyssjt2.vbpsjt2.frmsjt2.vbw c:wexam26990001sjt2.vbp 2. 22040 %user% bce qq1052205362 31 * 1sjt3.vbpsjt3.frm 1 visual basicturbo c c+java 2 option1xxx option2 xxxxxx visual basicsjt3.vbpsjt3.frm listvisual basic turbo cc+java clickclick private sub command1_click() if option1.value and list1.text = 50 then sum = sum + arr(i) s = s sum end sub clickclick private sub save_click() writedata “dataout.txt“, sum end sub bce qq1052205362 123 sum dim sum as integer c:wexam26990001hlpsyssjt5.vbpsjt5.frmsjt5.vbwdataout.txt c:wexam26990001sjt5.vbp 30 1. 21530 %user% * visual basic 1 form1label1 borderstyle1visiblefalsetext1 textcommand1 1click 2 * sjt1.vbp sjt1.frm visual basicform1塣 label1caption borderstyle1visiblefalsetext1text command1caption clickclick private sub command1_click() label1.visible = true label1.caption = text1.text text1.visible = false end sub c:wexam26990001hlpsyssjt1.vbpsjt1.frmsjt1.vbw c:wexam26990001sjt1.vbp * 2 form1text1 hscroll11 bce qq1052205362 124 min 500 max 2000 largechange 50 smallchange 20 1.2 2 * sjt2.vbp sjt2.frm visual basicform1塣 text1 hscroll1min500max2000largechang50smallchange 20 changechange private sub hscroll1_change() text1.width = hscroll1.value * 1.2 text1.height = hscroll1.value end sub c:wexam26990001hlpsyssjt2.vbpsjt2.frmsjt2.vbw c:wexam26990001sjt2.vbp 2. 22040 %user% * 1sjt3.vbp option1option2 list1text1 1 click 壬 壬 2 sjt3.vbpsjt3.frm bce qq1052205362 125 visual basicsjt3.vbpsjt3.frm option1 option2caption text1list1 private sub form_click() 1) list1.additem ? list1.additem text1.text 2) for i = 0 to ? for i = 0 to list1.listcount - 1 3) if list1.list(i) = ? then if list1.list(i) = text1.text then 4) list1.removeitem ? list1.removeitem i c:wexam26990001hlpsyssjt3.vbpsjt3.frmsjt3.vbw c:wexam26990001sjt3.vbp * 2sjt4.vbpsjt4.frm 书sort鰴 1 鰴 2 bce qq1052205362 126 visual basicsjt4.vbpsjt4.frm private sub sort(a() as integer)崦 1) start = ?(a) start = lbound(a) 2) finish = ?(a) finish = ubound(a) 3) for i = ? to 2 step -1 for i = finish to 2 step -1 4) for j = 1 to ? for j = 1 to i - 1 5) if a(j) ? a(j + 1) then if a(j) ? then if text2.text 0 then 4) text1.enabled = ? text1.enabled = false c:wexam26990001hlpsyssjt5.vbpsjt5.frmsjt5.vbw c:wexam26990001sjt5.vbp 32 1. 21530 %user% * visual basic 1 form1l1 c1c2 300800 1 2esc * sjt1.vbp sjt1.frm visual basicform1塣 l1caption c1c2captionheight 300width800form1壬caption maxbuttonfalseminbuttonfalse defaulttruecanceltrue c:wexam26990001hlpsyssjt1.vbpsjt1.frmsjt1.vbw bce qq1052205362 133 c:wexam26990001sjt1.vbp * 2form1text11000 hs11000-2000 change * sjt2.vbp sjt2.frm visual basicform1塣 text1width1000 hs1max2000min1000 changechange private sub hs1_change() text1.width = hs1.value end sub c:wexam26990001hlpsyssjt2.vbpsjt2.frmsjt2.vbw c:wexam26990001sjt2.vbp 2. 22040 %user% * 1sjt3.vbp list1list2list2 c1c2 bce qq1052205362 134 vb r visual basicsjt3.vbpsjt3.frm private sub c1_click() 1) while (k = “a“ and c max then max = a(i) if a(i) a(j) then k = j end if next j j = a(k) a(k) = a(i) a(i) = j next i ch = “ for k = 1 to 50 ch = ch + str(a(k) + “ “ next k text2.text = ch end sub private sub c1_click() 1) input #1, ? input #1, a%(k%) 2) text1.text = ? text1.text = ch$