可做奧鵬院校所有作業(yè),畢業(yè)論文,咨詢請?zhí)砑観Q:3230981406 微信:aopopenfd777
東 北 大 學 繼 續(xù) 教 育 學 院
可視化程序設計I 試 卷(作業(yè)考核 線下) A 卷(共 7 頁)
總分 題號 一 二 三 四 五 六 七 八 九 十
得分
注:請您單面打印,使用黑色或藍色筆,手寫完成作業(yè)。杜絕打印,抄襲作業(yè)。
一.選擇題(30分,每題2分)
1)以下能在窗體Form1的標題欄中顯示“東北大學"的語句是
A) Form1.Name="東北大學"
B) Form1.Title="東北大學"
C) Form1.Caption="東北大學"
D) Form1.Text="東北大學"
2)在窗體上畫一個名稱為Command1的命令按鈕,在事件過程中執(zhí)行:
Move 500,500
程序運行后,單擊命令按鈕,執(zhí)行的操作為
A) 命令按鈕移動到距窗體左邊界、上邊界各500的位置
B) 窗體移動到距屏幕左邊界、上邊界各500的位置
C) 命令按鈕向左、上方向各移動500
D) 窗體向左、上方向各移動500
3)在窗體上有一個名稱為Text2的文本框。影響Text2的Tab順序的屬性是
A) TabStop B)Enabled C) Visible D)TabIndex
4)設a=”Visual Basic”,下面使b="Basic"的語句是
A) b=Left(a,8,12) B) b=Mid(a,8,5)
C) b=Rigth(a,5,5) D) b=Left(a,8,5)
5)以下關于MsgBox的敘述中,錯誤的是
A) MsgBox函數返回一個整數
B) 通過MsgBox函數可以設置信息框中圖標和按鈕的類型
C) MsgBox語句沒有返回值
D) MsgBox函數的第二個參數是一個整數,該參數只能確定對話框中顯示的按鈕數
6)在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:
Private Sub Command1_Click()
Dim x As Integer
Cls
x=2
y=0
For i=1 To 2
y=y+x
x=x+2
Next
Print y,x
End Sub
程序運行后,連續(xù)三次單擊Command1按鈕后,窗體上顯示的是
A) 4 2 B) 6 6 C) 12 30 D) 4 6
7)以下合法的Visual Basic標識符是
A) wwend B) const C) 9abc D) a#x
8) 當一個復選框被選中時,它的Value屬性的值是
A) 3 B) 2 C) 1 D) 0
9)執(zhí)行如下兩條語句,窗體上顯示的是
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86 B) $9.86 C) $0,009.86 D) 9.86
10)在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序運行后,如果在輸入對話框中輸入2,則窗體上顯示的是
A) 分支1 B) 分支2 C) Else分支 D) 程序出錯
11)在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:
Private Sub Command1_Click()
a$="VisualBasic"
Print right(3,a$)
End Sub
程序運行后,單擊命令按鈕,在窗體上顯示的內容是
A) Vis B) sic C) ccc D) $$$
12)設窗體上有一個文本框,名稱為text1,程序運行后,要求該文本框只能顯示信息,不能接受輸入的信息,以下能實現該操作的語句是
A) Text1.Enabled=Flase B) Text1.MaxLength=0
C) Text1.Visible=Flase D) Text1.Width=0
13)設有如下程序段:
x=0
For i=1 To 10 Step 3
x=x+i
Next
運行以上程序后,x的值是
A) 20 B) 21 C) 22 D) 23
14)以下敘述中錯誤的是
A) 在KeyPress事件過程中不能識別鍵盤的按下與釋放
B) 在KeyPress事件過程中不能識別回車鍵
C) 在KeyDown和KeyUp事件過程中,將輸入的"A"和"a"視作相同的字母
D) 在KeyDown和KeyUp事件過程中,從大鍵盤上輸入的"1"和從右側小鍵盤上輸入的"1"被視作不同的字符
15)窗體上畫一個名稱為CommandDialog1的通用對話框,一個名稱為Command1的命令按鈕。然后編寫如下事件過程:
Private Sub Command1_Click()
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Docx|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
對于這個程序,以下敘述中錯誤的是
A) 該對話框被設置為“打開”對話框
B) 在該對話框中指定的默認文件名為空
C) 該對話框的標題為VBTest
D) 在該對話框中指定的默認文件類型為文本文件(*.Txt)
二、填空題(30分,每空2分)
1) 結構化程序設計中把程序結構規(guī)定為( 1 )、( 2 )、( 3 )三種基本結構。
2)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框。程序運行后,Command1為禁用(灰色) 。當向文框中輸入任何字符時,命令按鈕Command1變?yōu)榭捎谩U堅?(4) 處填入適當的內容,將程序補充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_( 4 )()
Command1.Enabled=True
End Sub
3)在如下工具欄按鈕事件處理函數中,空白處應當添加的語句為
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case ( 5 )
4) 在窗體上有一個文本框控件,名稱為TxtTime:一個計時器控件,名稱為Timerl,要求每一秒鐘在文本框中顯示一次當前的時間。程序為:
Private Sub Timer1_( 6 )
TxtTime.text=Time
End Sub
請在(6)處補全程序
5)設有如下程序段:
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
執(zhí)行上面的程序段后,變量b$的值為( 7 ) 。
6)以下程序的功能是:從鍵盤上輸入若干個學生的考試分數,當輸入負數時結束輸入,然后輸出其中的最高分數和最低分數。請在( 6) 和 (7) 處填入適當的內容,將程序補充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While ( 8 )
If x>amax Then
Amax=x
End If
If ( 9 )Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
7)在窗體上畫一個名稱為“Command1”,標題為“計算”的命令按鈕,再畫7個標簽,其中5個標簽組成名稱為Label1的控件數組;名稱為Label2的標簽用于顯示計算結果,其Caption屬性的初始值為空;標簽Label3的標題為“計算結果”。運行程序時會自動生成5個隨機數,分別顯示在標簽控件數組的各個標簽中,如圖所示。單擊“計算”按鈕,則將標簽數組各元素的值累加,然后計算結果顯示在Label2。請?zhí)羁铡?br/>
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum + ( 10 )
Next
( 11 ) = Sum
End Sub
8)如下程序計算1~100之間的能被3整除或被5整除的數的和,請不全如下程序
Private Function sum() As Integer
s = ( 12 )
For i = 1 To 100
If ( 13 ) Then
s = ( 14 )
End If
Next
sum = ( 15 )
End Function
三、編程題(40分,答案可以附加頁)
1)(10分)編制程序實現從鍵盤讀入一數字,求其平方根。如果此數為負數,請?zhí)崾尽柏摂禌]有平方根”,否則輸出其平方根。
2)(10分)輸入10個同學的數學成績,計算所有及格以上同學的平均分。
3)(20分)設計一個form名稱為form1,添加“打開文件”按鈕cmdOpen,, “保存文件”按鈕為cmdSave,文本框為txtSource。通過點擊“打開文件”按鈕讀取文件”c:\abc.dat”的內容,并將內容顯示到txtSource中;然后通過點擊“保存文件”按鈕將此文本框的內容保存到“c:\abc.c”中。要求使用open命令打開文件,在form1_load中初始化cmdOpen和cmdSave的標題屬性。