C語言考試試題

　　以下是百分網小編整理的C語言考試試題，歡迎學習!

C語言考試試題

　　一、填空(每空2分，共30分)

　　1. 當進入VB集成開發環境后，發現沒有顯示“工具箱”窗口，應選擇視圖菜單的工具箱選項，使“工具箱”窗口顯示。

　　2.要在窗體Form1內顯示“myfrm”，使用的語句是 Form1.print="myfrm" 。

　　3.若已建立了Form1和Form2兩個窗體，默認啟動窗體為Form1。通過工程菜單的工程菜單項，可將啟動窗體設置為Form2。在程序中若要顯示Form1窗體，則執行 Form1.show 語句。

　　4.列表框中項目的序號是從 0 開始的。

　　5.控件數組的名字由 index 屬性指定，而數組中的每個元素由 name 屬性決定。

　　7.全局變量在整個應用程序中有效，一般在標準模塊中使用 public 語句聲明。

　　7.VB的代碼存儲在模塊中。在VB中提供了三種類型的模塊：窗體模塊、標準備模塊和類模塊。

　　8.在Visual Basic語言中有三種形式的循環結構。其中，若循環的次數可以事先確定，可使用 for...next 循環;若要求先判斷循環進行的條件，可使用 do...loop 循環或Do循環。

　　9.列表框控件中最后一項的序號等于ListCount屬性減 1 。

　　10.將圖片框PictureBox的AutoSize屬性設置成 true 時，圖片框能自動調整大小，以適應其中的圖片。

　　11.閏年的條件是：年號(Y)能被4整除，但不能被100整除;或者年號能被400整除。表示該條件的邏輯表達式是 Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0

　　12.如果要每隔15s產生一個Timer事件，則Interval屬性應設置為 15000 。

　　13.在VB中，除了可以指定某個窗體作為啟動對象之外，還可以指定 Main子過程作為啟動對象。

　　2.窗體的Load事件的觸發時機是(b )。

　　A.用戶單擊窗體時 B.窗體被加載時

　　C.窗體顯示之后 D.窗體被卸載時

　　3.與傳統的程序設計語言相比，Visual Basic最突出的特點是(c )。

　　A.結構化程序設計 B.程序開發環境

　　C.事件驅動編程機制 D.程序調試技術

　　4.無論何種控件，共同具有的屬性是( d )。

　　A.Text屬性 B.Caption屬性 C.Name屬性 D.Autosize屬性

　　5.有程序代碼如下：

　　Text1.Text = "VB簡單易學，功能強大"

　　則Text1、Text 、和" VB簡單易學，功能強大"分別代表( b )。

　　A.對象，值，屬性 B.對象，屬性，值

　　C.對象，方法，屬性 D.屬性，對象，值

　　6.剛建立一個新的標準EXE工程后，不在工具箱中出現的控件是( d )。

　　A.單選按紐 B.圖片框

　　C.框架 D.通用對話框

　　7. 如果要在文本框中鍵入字符時，只顯示某個字符，如星號(*),應設置文本框的( b )屬性。

　　A.Caption B.PasswordChar C.Text D.Char

　　8.如果對象的名稱為Mytext，而且對象有一個屬性Text，那么在代碼中引用該屬性的正確格式是( b )。

　　A.Text.Mytext B.Mytext.Text

　　C.Mytext.(Text) D.Mytext*Text

　　9.將數據項“China”添加到列表框List1中成為第一項，應使用的語句是( a )。

　　A.List1.AddItem"China",0 B.List1.AddItem"China",1

　　C.List1.AddItem"China", D.List1.AddItem"1,China"

　　10.要在窗體的標題欄內顯示“歡迎您!”，使用的語句是( b )。

　　A.Form.caption="歡迎您!" B.Form1.caption="歡迎您!"

　　C.Form1.print "歡迎您!" D.Form. print "歡迎您!"

　　11.如果想讓文本框中的內容在運行時不能編輯，需將文本框的( a )屬性設置為True。

　　A.Locked B.MultiLine C.TabStop D.Visible

　　12.關于語句行，下列說法正確的是( d )。

　　A.一行只能寫一條語句 B.長度不能超過255個字符

　　C.每行的首字符必須大寫 D.一條語句可以分多行書寫

　　13.當使用上下文相關的幫助時，選擇要幫助的內容，然后按( d )鍵，就可出現MSDN窗口直接顯示所需的幫助信息。

　　A、Help B、F10 C、Esc D、F1

　　14.以下可以作為Visual Basic變量名的是( b )。

　　A.SIN B.CO1 C.COS(X) D.X(-1)

　　15.用下面的語句所定義的數組的元素的個數是(d )。

　　Dim A(-3 To 5)As Integer

　　A.6 B.7 C.8 D.9

　　二、選擇題(每題2分，共30分)

　　1.后綴為.frm的文件表示(　d　)。

　　A.類模塊文件 B.窗體文件

　　C.標準類模塊文件 D.窗體二進制數據文件

　　2.下列關于窗體的說法不正確的是( b )。

　　A.窗體的標題由Caption屬性確定

　　B.窗體的Name屬性與Caption屬性相同

　　C.窗體的背景圖片由其Picture屬性設定

　　D.通過設置Icon屬性可使窗體獲得最小化時的圖標

　　3.與傳統的程序設計語言相比，Visual Basic最突出的特點是( c )。

　　A.結構化程序設計 B.程序開發環境

　　C.事件驅動編程機制 D.程序調試技術

　　4.將一個VB程序保存在磁盤上，至少會產生的文件是( c )。

　　A..doc、.txt B..txt、.exe

　　C..vbp、.frm D..bat、.frm

　　5.如果對象的名稱為Mytext，而且對象有一個屬性Text，那么在代碼中引用該屬性的正確格式是( b )

　　A.Text.Mytext B.Mytext.Text

　　C.Mytext.(Text) D.Mytext*Text

　　6. 如果要在文本框中鍵入字符時，只顯示某個字符，如星號(*),應設置文本框的( b )屬性。

　　A.Caption B.PasswordChar C.Text D.Char

　　7.無論何種控件，共同具有的屬性是( c )。

　　A.Text屬性 B.Caption屬性 C.Name屬性 D.Autosize屬性

　　8.下列數組聲明語句，正確的是(　b　)

　　A.Dim a[3,4] As Integer B.Dim a(3 4) As Integer

　　C.Dim a(n,n) As Integer D.Dim a(3,4) As Integer

　　9.關于對象的屬性不正確的是( d )。

　　A.對象的屬性一般有屬性名和屬性值 B.可通過屬性窗口設置屬性的值

　　C.可通過程序代碼設置屬性的值 D.對象的所有屬性值均可在設計時設計

　　107.后綴為.vbp的文件表示VB 的(　b　)。

　　A.窗體文件 B.工程文件

　　C.類模塊文件 D.標準類模塊文件

　　11.在設計階段，雙擊窗體上的某個控件時，打開的窗體是( c )。

　　A.工程資源管理器窗口 B.工具箱窗口

　　C.代碼編輯器窗口 D.屬性窗口

　　12.要在窗體的標題內顯示“我的第一個應用程序”,使用的語句是( d )。

　　A.Form1.Print"我的第一個應用程序"

　　B.Form.Print"我的第一個應用程序"

　　C.Form.caption="我的第一個應用程序"

　　D.Form1.caption="我的第一個應用程序"

　　13.將數據項“China”添加到列表框List1中成為第一項，應使用的語句是( a )。

　　A.List1.AddItem"China",0 B.List1.AddItem"China",1

　　C.List1.AddItem"China", D.List1.AddItem"1,China"

　　14.下列符號不能作為VB中變量名的是( c )。

　　A.ABCD B.X00000 C.60XYZ D.xyz

　　15.將文本框的ScrollBars屬性設置為非零值，卻沒有效果，原因是( b )。

　　A.文本框中沒有內容

　　B.文本框的MultiLine屬性值為False

　　C.文本框的MultiLine屬性值為True

　　D.文本框的Locked屬性值為True

　　16.關于語句行，下列說法正確的是( d )。

　　A.一行只能寫一條語句 B.長度不能超過255個字符

　　C.每行的首字符必須大寫 D.一條語句可以分多行書寫

　　17.當使用上下文相關的幫助時，選擇要幫助的內容，然后按( d )鍵，就可出現MSDN窗口直接顯示所需的幫助信息。

　　A、Help B、F10 C、Esc D、F1

　　18.在設計動畫時，用時鐘控件來控制動畫速度的屬性是( d )。

　　A.Enabled B.Move

　　C.Timer D.Interval

　　19.文本框ScrollBars屬性設置了非零值，卻沒有效果，原因是( d )。

　　A.文本框中沒有內容 B.文本框的Locked屬性為True

　　C.文本框的MultiLine屬性為True D.文本框的MultiLine屬性為False

　　20.要退出For…Next循環，應使用的語句是( c )。

　　A.Exit B.Stop Loop C.Exit For D.Continue

　　三、閱讀題(每格2分，共20分)

　　Private Sub Form_Click()

　　Dim x As Integer

　　Static y As Integer

　　x = x + 3

　　y = y + 4

　　Form1.Print "x="; x, "y="; y

　　End Sub寫出程序運行時連續單擊三次窗體后，Form1上的輸出結果。

　　X=3,y=4 ， x=3,y=8 ， x=3,y=12 注：全局變量執行一次內存就消失了,static整個程序結束則消失

　　Private Sub Form_Click()

　　Dim i As Integer, k As Integer, c As Integer

　　For i = 1 To 5

　　If i Mod 2 = 0 Then

　　k = k + 2

　　Else

　　c = c + 3

　　End If

　　Next i

　　Print k, c

　　End Sub

　　寫出程序運行時單擊窗體后，Form1上的輸出結果。

　　K=4 ， c=9

　　Private Sub Command1_Click()

　　Dim A(1 To 5) As Integer

　　Dim b As Integer

　　For b = 1 To 5

　　A(b) = b

　　Next b

　　Text1.Text = A(b - 2)

　　End Sub

　　寫出程序運行時單擊Command1按紐后，Text1上的輸出結果。

　　Sub Change(ByVal x As Integer, ByVal y As Integer)

　　Dim t As Integer

　　t = x

　　x = y

　　y = t

　　Print x, y

　　End Sub

　　Private Sub Form_Click()

　　Dim a As Integer, b As Integer

　　a = 5: b = 8

　　Change a, b

　　Print a, b

　　End Sub

　　寫出程序運行時單擊Command1按紐后，Form1上的輸出結果。

　　8 5 ， 5 8

　　Private Sub Form_Click()

　　Static Sum As Integer

　　For i = 1 To 3

　　Sum = Sum + i

　　Next i

　　Print Sum

　　End Sub

　　寫出程序運行時點擊窗體兩次后，變量Sum的值。

　　6 ， 12

　　Sub test(i As Integer)

　　i = i + 3

　　End Sub

　　Private Sub Form_Click()

　　Dim x As Integer

　　x = 8

　　Print "x="; x

　　Call test(x)

　　Print "x="; x

　　End Sub

　　寫出程序運行時,單擊窗體后顯示的值。

　　Private Sub Form_Click()

　　Dim I As Integer, j As Integer

　　Dim c As Integer

　　c = 0

　　For I = 1 To 3

　　For j = 1 To 3

　　c = c + 4

　　Next j

　　Next I

　　Print c

　　End Sub

　　寫出程序運行時,單擊窗體后顯示的值。

　　四、程序填空(每格1分，共10分)

　　1、下面是一個歌手大賽評分程序。10位評委，除去一個最高分和一個最低分，計算平均分(設滿分為10分)。請在空格處填入適當的內容，將程序補充完整。

　　Private Sub Form_Click()

　　Dim Max,Min,x,i,s as Integer

　　Dim aver as Single

　　Max= 0

　　Min= 10

　　aver= 0

　　For i = 1 To (1) 10

　　x=Val(InputBox("請輸入分數"))

　　If x>max (2) Then Max=x

　　If xThen Min=x

　　S=s+x (4)

　　Next i

　　s = s-max-min (5)

　　aver = s/8 (6)

　　Print "最高分";Max,"最低分";Min

　　Print "最后得分";aver

　　End Sub

　　2.本題序隨機產生的n個兩位正整數。并進行排序的程序輸出結果。

　　Private sub CreateRND(byval n as integer)

　　Dim temp as integer

　　Dim I as integer

　　For I=0 to n

　　X(I)= (7)int(10+rad()*90)

　　Lblcreat(I).caption=x(I)

　　Next I

　　For I=0 to (8) n-1

　　For j =I+1 to n

　　If x(I)

　　temp=x(j)

　　X(I)=x(j)

　　(9) x(i)=temp

　　End if

　　Next j

　　(10) lblcreat(l).caption(l)

　　Next I

　　lblcreat(I) caption=x(I)

　　End Sub

　　3.編程求出一個班40個學生的《VB程序設計》平均成績，并統計出高于平均分的人數。請在空行出填入適當內容，將程序補充完整。

　　Private Sub Command1_Click( )

　　Dim i,j,n,sum as Integer , aver as Single

　　Dim s(1 to 40 ) as Integer

　　sum=0

　　n=0

　　For i=1 to 40

　　(1) n =inputbox(“請輸入第” & i “位學生的成績”)

　　sum= (2)sum+n

　　Next i

　　aver= sum/40(3)

　　For j=1 to 40

　　If (s(j)>aver) Then (4)

　　Next j

　　print “平均分=”;aver;”高于平均分的人數”;n

　　End Sub

　　4.程序說明:利用一個計時器、一個標簽框和二個命令按鈕制作一個動態秒表，如圖1所示。單擊“開始“命令按鈕，秒表開始計時，單擊“結束“命令按鈕，秒表結束計時，并在標簽框顯示運行時間，如“運行了0小時2分10秒“。 (假設對象的屬性都在程序代碼中設定)。

　　Dim x As Long

　　Dim h As Integer, m As Integer, s As Integer

　　Private Sub Form_Load()

　　Form1.Caption = "動態秒表(小時：分：秒)"

　　Command1.Caption = "開始[&S]"

　　Command2.Caption = "結束[&E]"

　　Label1.Alignment = 2 '居中對齊

　　Label1.Caption = "0:0:0"

　　timer1.Interval = (5) 1000

　　Timer1.Enabled = False

　　x = 0

　　End Sub

　　Private Sub Command1_Click()

　　(6) timer1.enable=true

　　End Sub

　　Private Sub Command2_Click()

　　Timer1.Enabled = False

　　x= (7) 0

　　Label1.Caption = "運行了" + Str(h) + "小時" + Str(m) + "分" + Str(s) + "秒"

　　End Sub

　　Private Sub Timer1_Timer()

　　x = x + 1

　　h= (8) x\3600

　　m = (9) (xmod3600)\60

　　s= (10) x mod 60

　　Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)

　　End Sub

　　五、編程題(每題5分，共10分)

　　1.隨機產生n個兩位正整數(n由輸入對話框輸入，且n>0)，求出其中的偶數之和，并在標簽框Label1上顯示。程序寫在命令按鈕command1的click事件中。

　　Private Sub Command1_Click()

　　Dim i As Long, s, n, sum

　　s = InputBox("輸入一個正整數：", 10)

　　For i = 1 To s

　　Randomize

　　n = Int(Rnd * 100) + 1

　　Print n;

　　If n Mod 2 = 0 Then sum = sum + n

　　label1.Caption = "偶數之和：" & sum

　　End Sub

　　2.請根據下列描述編寫購物優惠程序。某商場為了加速促成商品流通，采用購物打折的優惠辦法，每位顧客一次購物(1)在300元以上者，按九五折優惠;(2)在500元以上者，按九折優惠;(3)1000元以上者，按八折優惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸出優惠價。

　　Private sub command1_click()

　　Dim x as integer,dim y as integer

　　X=val(Text1.tex)

　　If x<300 then

　　X=y

　　Else

　　If x<500 then

　　Y=X*0.95

　　Else x<1000 then

　　Y=x*0.9

　　Else y=x*08

　　End if