《 VB程序設(shè)計(jì)基礎(chǔ) 》期中練習(xí)一

1、 VB程序設(shè)計(jì)基礎(chǔ) 期中練習(xí)一一、單選題（40%，每小題2分）1在設(shè)計(jì)窗體時雙擊窗體的任何地方，可以打開的窗口是_。A代碼窗口B屬性窗口C工程資源管理器窗口D工具箱窗口2Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，構(gòu)成對象的三要素是 。 A屬性、控件和方法 B屬性、事件和方法 C窗體、控件和過程 D控件、過程和模塊 3函數(shù)Int( 6 * RND )+1的值是在哪個范圍內(nèi)的整數(shù)？_A 0,6 B 0,7 C 1,6 D 1,74代數(shù)式 的VisualBasic表達(dá)式是 。 Aa+b/Sqr(c+Log(a)+c/d B (a+b)/Sqr(c+Log(a)+c/d C(a+b)/(S

2、pr(c+Log(a)+c/d) D (a+b)/(Sqr(c+Log(a)+c/d)5數(shù)學(xué)式子sin25寫成VB表達(dá)式是 。ASin25 BSin（25）CSin（25*3.14/180） DSin(25)6下面 是日期型常量。A12/19/99 B12/19/99C#12/19/99# D12/19/997若x是一個正實(shí)數(shù)，對x的第3位小數(shù)四舍五入的表達(dá)式是_。A0.01*Int(x+0.005)B0.01*Int(100*(x+0.005)C0.01*Int(100*(x+0.05)D0.01*Int(x+0.05)8哪一條語句執(zhí)行后將會刪除文本框Text1中的文本？AText1.Tex

3、t=”BText1.SelText=”CText1.ClearDText1.SelText.Clear下列函數(shù)中，返回值是字符串的是 。AChrBInStrCValDAsc10可作為Visual Basic變量名的是 。AshowBAlphi_1C2E3D4D+211不正確的VB常量是 。A123!B&HABCC&O18D#1-1-03#12變量X# 占 字節(jié)內(nèi)存容量。A2B4C6D813聲明符號常量應(yīng)該用關(guān)鍵字 。AStaticBConstCPrivateDVariant14下列各組函數(shù)中，函數(shù)值類型相同的一組是 。AExp(x)、Chr$(x)、Lcase$(x)BAsc(x)、Str$(

4、x)、Rtrim$(x)CSgn(x)、Int(x)、Len(x)DFix(x)、Left$(x)、Ucase$(x)15設(shè)S=“中華人民共和國”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為 。A“中華民國” B“中國人民”C“中共人民” D“人民共和”16先聲明Dim X As String*10，再賦值X=”浙江”，最后Len(X)的值為 。A10 B2 C4 D1217判斷變量x、y中有且只有一個為0的下列各表達(dá)式中，正確的是 。Ax=0 Or y=0 and x*y0 Bx+y=0 and x*y0Cx+y0 and x*y=0 Dx=0 and y01

5、8函數(shù)Val(&H100) 的返回值為 。A256 B0 C100D6419由For k=35 To 0 Step 3 ：Next k 循環(huán)語句控制的循環(huán)次數(shù)是 。 A0 B12 C1 D1120在Select Case A 的語句中，判斷A是否大于等于10小于等于20的是 。ACase A=10 And A=10 And Is = Max Then Max = x _( 3 )_ Next iPrint “最大值:”;Max, ”最小值:”; MinEnd Sub 2【程序說明】設(shè)計(jì)一個用計(jì)算機(jī)給出三位整數(shù)加法的練習(xí)程序，程序界面如下圖所示，單擊一次，則在文本框中產(chǎn)生一題。其中已將文本框的M

6、ultiline屬性設(shè)置為True，并設(shè)置垂直滾動(ScrollBars=2)；程序中Chr(13)+Chr(10)表示回車換行符。注：程序中有兩個（4）空，算作一個空，答題時都要寫出。Private Sub Form_Load() Text1.text=”End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = _( 4 )_ 產(chǎn)生三位隨機(jī)數(shù)y = _( 4 )_ 產(chǎn)生三位隨機(jī)數(shù)Text1.Text = _( 5 )_ & x & + & y & =( ) & Chr(13) & Chr(10)End Sub三、

7、程序閱讀題（20%，每小題4分）1閱讀下列程序，程序運(yùn)行后，單擊窗體，寫出窗體上輸出結(jié)果。 【程序】Private Sub Form_Click()Dim k As Integer, i As IntegerFor i = 100 To 140 If i Mod 5 = 0 Then Print i; k = k + 1 If k Mod 10 = 0 Then Print Next iEnd Sub2下面程序運(yùn)行時，單擊窗體后，寫出窗體上輸出結(jié)果?！境绦颉縋rivate Sub Form_Click() Dim x As String, y As String, d As Integer D

8、im i As Integer, n As Integer x = abcdefghijkl d = Asc(a) - Asc(A) n = Len(x) y = i = 1 Do While i = n y = y + Chr(Asc(Mid(x, i, 1) - d) i = i + 3 LoopPrint y=; yEnd Sub3下列程序運(yùn)行后，單擊命令按鈕后輸出的結(jié)果是什么？【程序】Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integern = 6For i = 1 To n Print Tab(

9、n - i + 1); For j = 1 To i Print Trim(Str(j); Next j For j = i - 1 To 1 Step -1 Print Trim(Str(j); Next j PrintNext iEnd Sub4下面程序運(yùn)行時，單擊窗體后，請寫出窗體上顯示的結(jié)果。 【程序】Private Sub Form_Click() Dim i As Integer, sum As Long sum = 0 For i = 1 To 6 Step 2 sum = sum + i Next i Print sum; iEnd Sub5下面程序運(yùn)行時，單擊窗體后在輸入對話

10、框中輸入13，寫出窗體上程序運(yùn)行結(jié)果。 【程序】Private Sub Form_Click() Dim x As Integer, y As String x = Val(InputBox() y = Do While x 0 y = x Mod 2 & y x = x 2 Loop Print yEnd Sub四、程序設(shè)計(jì)題（30%，每小題10分）1程序界面設(shè)計(jì)如下左圖，運(yùn)行程序后在Text1中輸入數(shù)據(jù)（設(shè)輸入數(shù)據(jù)類型是整形），單擊“計(jì)算”按鈕（Command1）由下右圖給出的公式計(jì)算函數(shù)f(x)的值，并將結(jié)果輸出到Label3標(biāo)簽框中；單擊“結(jié)束”按鈕（Command2）則結(jié)束程序運(yùn)行。分別編寫這兩個命令按鈕的單