1． 有如下一個函數(shù)過程：
Function Func (ByVal Num As Long )
Dim k As Long
k=1
Num = Abs (Num)
Do While ( Num)
k = k * (Num Mod 10)
Num = Num \ 10
Loop
Func = k
End Function
以下是一個調(diào)用該函數(shù)的事件過程，在運行該過程后，在輸入對話框中輸入“2345”，則該過程的運行結(jié)果是（ 【78】 ）
Private Sub Command1_Click( )
Dim n As Long , r As Long
n = InputBox ( “請輸入數(shù)據(jù)：” )
n = CLng ( n ) ‘CLng函數(shù)的返回值是一個長整型數(shù)值
r = Func ( n )
Print r
End Sub
�。ˋ）0 �。˙）24 �。–）60 （D）120
2． 在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n = Val(Text1.Text)
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x= 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序運行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是
（A）10 （B）20 （C）30 （D）40
3． 在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click()
N=Val(Text1.Text)
If n \ 2 = n / 2 Then
f=f1(N)
Else
F=f2(N)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x = x * x
f1=x + x
End Function
Public Function f2(ByVal x)
x = x * x
f1=x + x + x
End Function
程序運行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是（ 【79】 ）
（A）72 6 �。˙）108 6 （C）72 36 �。―）108 36
4． 設(shè)在工程中有一個標準模塊，其中定義了如下記錄類型
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗體上畫一個名為Command1的命令按鈕，要求當(dāng)執(zhí)行事件過程Command1_Click( )時，在順序文件Ks74 . Txt中寫入一條記錄。下列能夠完成該操作的事件過程是（ 【79】 ）
（A）Private Sub Command1_Click( )
Dim b As Books
Open “D:\Vb2003Ks\Ks74.Txt” For OutPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Write #1 , b.Name , b.TelNum
Close #1
End Sub
（B）Private Sub Command1_Click( )
Dim b As Books
Open “D:\Vb2003Ks\Ks74.Txt” For InPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Print #1 , b.Name , b.TelNum
Close #1
End Sub
（C）Private Sub Command1_Click( )
Dim b As Books
Open “D:\Vb2003Ks\Ks74.Txt” For OutPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Write #1 , b
Close #1
End Sub
（D）Private Sub Command1_Click( )
Dim b As Books
Open “D:\Vb2003Ks\Ks74.Txt” For InPut As #1
b.Name = InputBox ( “輸入姓名”)
b.TelNum = Inputbox ( “輸入電話號碼”)
Print #1 , Name , TelNum
Close #1
End Sub
5． 在窗體上畫一個名稱為Text1的文本框，并編寫如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "程序設(shè)計"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序運行后，如果按"A"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是
（A）Visual Basic �。˙）程序設(shè)計
（C）A程序設(shè)計 （D）Visual Basic程序設(shè)計
6． 下列程序運行后，運行結(jié)果不是144的程序是（ 【80】 ）
（A）Dim z As Integer �。˙）Dim x As Integer
Private Sub Form_Click( ) Private Sub Form_Click( )
，我們將會及時處理。 |  2015年全國職稱計算機考試教材（2007模.. 定價：￥225 優(yōu)惠價：￥213 更多書籍 |
 | 全國職稱計算機考試速成過關(guān)系列套裝:W .. 定價：￥133 優(yōu)惠價：￥133.0 更多書籍 |