【正文】
第一篇:可視化程序設(shè)計(jì)(VB)模擬試題可視化程序設(shè)計(jì)(VB)一、填空題(32分,共 8 題,每小題 4 分),必須首先在“部件”對話框中選擇 ______,將其添加到工具箱中。,要使工具欄Toolbarl中索引值為4的按鈕無效(變成灰色),應(yīng)使用語句: ______。,要使工具欄控件Toolbarl中的第二個按鈕的按鈕菜單中的第三項(xiàng)無效(變成灰色),應(yīng)使用語句: ______。,可以設(shè)置工具按鈕的 ______ 屬性為其添加功能提示。,但該字符串必須是 ______。=sqr(2)*sqr(3),下列語句的輸出結(jié)果分別是。print format$(a,“”)print format$(a,“.00”)print format$(a,“+00”)print format$(a,“-.”),需要將該窗體的 ______ 屬性設(shè)置為False,再用 ______ 語句裝載。(100,300)的整數(shù),表達(dá)式為 ______。二、程序閱讀題(24分,共 3 題,每小題 8 分)。Private Sub Command1_Click()s3(1)s3(1)End SubPrivate Sub s3(ByVal a As Integer)Dim x As Integer Static y As Integerx=x+ay=y+aPrint “x=”。x, “y=”。yEnd Sub“d:”添加新記錄,在橫線上填上適當(dāng)內(nèi)容。標(biāo)準(zhǔn)模塊:Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20End Type窗體模塊:Private Sub Command1_Click()Dim n%, zgr As txr Open “d:”For Random As 1Len = Len(zgr) = InputBox(“輸入新職工編號:”) = InputBox(“輸入新職工姓名:”) = InputBox(“輸入新職工電話號碼:”) = InputBox(“輸入新職工住址:”)n =(1)(2)Close 1End Sub。Sub main過程是本程序的啟動過程,其他過程是窗體模塊的事件過程。執(zhí)行本程序,寫出依次單擊命令按鈕mandl和mand2,在窗體上分別輸出的3行結(jié)果。標(biāo)準(zhǔn)模塊:Public X As Integer Sub main()X=5 XEnd Sub窗體模塊Dim y As IntegerPrivate Sub mand1_click()y=X*2Print yEnd SubPrivate Sub mand2_click()y=X/2 Print yEnd Sub三、問答題(24分,共 3 題,每小題 8 分)“內(nèi)外循環(huán)交叉”??四、程序設(shè)計(jì)題(20分,共 1 題,每小題 20 分)利用隨機(jī)函數(shù),模擬投幣結(jié)果。設(shè)共投幣100次,求“兩個正面”、“兩個反面”、“一正一反”3種情況各出現(xiàn)多少次?答案:一、填空題(32分,共 8 題,每小題 4 分):Microsoft Common Dialog Controls 解題方案:評分標(biāo)準(zhǔn)::Toolbarl.Buttons(4).Enabled=False解題方案:評分標(biāo)準(zhǔn)::Toolbarl.Buttons(2).ButtonMenus(3).Enabled=False解題方案:評分標(biāo)準(zhǔn)::ToolTipText解題方案:評分標(biāo)準(zhǔn)::定長字符串解題方案:評分標(biāo)準(zhǔn)::、-解題方案:評分標(biāo)準(zhǔn)::Visable;Load解題方案:評分標(biāo)準(zhǔn)::+ Rnd * 200解題方案:評分標(biāo)準(zhǔn):二、程序閱讀題(24分,共 3 題,每小題 8 分):執(zhí)行結(jié)果為: x=1 y=1 x=1 y=2解題方案:過程調(diào)用評分標(biāo)準(zhǔn)::(1)LOF(1)/ Len(zgr)+ 1(2)Put 1, n, zgr解題方案:標(biāo)準(zhǔn)模塊和窗體模塊應(yīng)用評分標(biāo)準(zhǔn):