【正文】
(16) 語句 Print 5/4*6\5 Mod 2 的輸出結(jié)果是 A) 0 B) 1 C) 2 D) 3 (17) 在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕,其名稱分別為 Text Label1 和 Command1,然后編寫如下兩個(gè)事件過程: Private Sub Command1_Click() strText = InputBox(請(qǐng)輸入 ) = strText End Sub Private Sub Text1_Change() = Right(Trim(), 3) End Sub 程序運(yùn)行后,單擊命令按鈕,如果在輸入對(duì)話框中輸入 abcdef,則在標(biāo)簽中顯示的內(nèi)容是 A)空 B) abcdef C) abc D) def (18) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click() x = 5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序運(yùn)行后,單擊命令按鈕,窗體上顯示的是 A) 5 B) 25 C) 1 D) 1 (19) 一個(gè)工程中含有窗體 Form Form2和標(biāo)準(zhǔn)模塊 Model1,如果在 Form1中有語句 Pubilc X As Integer,在 Model1 中有語句 Pubilc Y As Integer,則以下敘述中正確的是 A) 變量 X、 Y 的作用域相同 B) Y 的作用域是 Model1 C) 在 Form1 中可以直接使用 X D) 在 Form2 中可以直接使用 X 和 Y (20) 在窗體上畫一個(gè)名稱為 Drive1 的驅(qū)動(dòng)器列表框,一個(gè)名稱為 Dir1 的目錄列表框。 n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序運(yùn)行后,在文本框中輸入 6,然后單擊命令按鈕,窗體上顯示的是 A) 72 36 B) 108 36 C) 72 6 D) 108 6 (25) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕,然后編寫如下事件過程 : Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print Next End Sub 程序運(yùn)行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容 1 12 123 1234 則在下劃線處應(yīng)填入的內(nèi)容為 A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i) (26) 在窗體上畫一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框,然后編寫如下事件過程: Private Sub Command1_Click() n = Val() For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 該事件過程的功能是 A) 輸出 n 以內(nèi)的奇數(shù) B) 輸出 n 以內(nèi)的偶數(shù) C) 輸出 n 以內(nèi)的素?cái)?shù) D) 輸出 n 以內(nèi)能被 j 整除的數(shù) (27) 在以下描述中正確的是 A) 標(biāo)準(zhǔn) 模塊中的任何過程都可以在整個(gè)工程范圍內(nèi)被調(diào)用 B) 在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為 Public 的通用過程 C) 如果工程中包含 Sub Main 過程,則程序?qū)⑹紫葓?zhí)行該過程 D) 如果工程中不包含