班級名稱和學生編號
壹、填空
1，下列哪壹個可以作為變量？
12fd x13 r2 a2 23a2
2.下列哪壹項可以用作常數？並說明是數值型還是字符型，邏輯型還是日期型？
" asdf " asdf " 1234 " 1234 # 2008/11/10 # true false a3
3.將下列數學表達式寫成VB表達式。
4.計算下列VB表達式的值(需要寫入步驟)
5*3*6\2
8/4*2.5/1.25*(3.7+2.5)
18\4*4.0^2/1.6
25\3模塊3*2
26\3 Mod 0.4*Sqr(25)
8/4*5/2.5*(3.25+6.75)
3*7\2
14/5*2
15\5*2
27^1/3
27^(1/3)
sqr(100)\4*2
5.根據下列要求寫出賦值語句
(1)將值234賦給變量a。
(2)將字符串abc賦給變量z1。
(3)將表達式2 sin15的值賦給變量ss。
(4)將標簽Lblts的內容更改為名稱。
(5)將框架Frm1的背景色改為黑色(#000000)。
6.寫出下列函數的值。
Int(-3.14159)
Sqr(sqr(16))
7.生成a-b(含B)範圍內的整數的公式:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _的
8.編寫輸入和輸出語句
輸入對話框:圖標為必填項，標題為“輸入對話框”，對話框內容為“請輸入您的姓名”
___________________________________
輸出對話框:圖標為必填項，標題為“輸出對話框”，對話框內容為“妳打錯了”
___________________________________
二、選擇題
1，以下哪些窗口不包含在Visual Basic集成開發環境中？(四)
A.工具箱窗口b .項目資源管理器窗口
C.屬性窗口d .命令窗口
2.“壹輛客車在正常行駛過程中被壹輛大貨車損壞”。在這句話中，Visual Basic中分別使用了哪些術語來表示“客車”、“小型”、“行駛中”和“被大貨車損壞”？(二)
A.對象、屬性、事件和方法
C.屬性、對象、事件和方法d .屬性、對象、方法和事件
3.對象的特性和狀態特性稱為。(三)
A.事件b .方法c .屬性d .類
4.以下哪個屬性用於標識對象的名稱？(四)
A.標題b .值c .文本d .名稱
5.以下哪個符號是合法的變量名？(壹)
A.VB123 B. Abs C. 99Ji D. x\y
6.用Visual Basic寫的數學表達式10sin25o是什麽？(四)
A.10 sin 25 b . 10 * sin(25)c . 10 * sin(25o)d . 10 * sin(25 * 3.14/180)
7.下列哪種數據類型在Visual Basic中不存在？(四)
A.字符串類型b .日期類型c .邏輯類型d .指針類型
8.表達式left ("visual "，3)+lcase ("ab ")的值是多少？(三)
A.維沙蔔
9.表達式6+10 Mod 4*2+1的值是多少？(二)
A.9 B. 11 C. 1 D. 3
10.將數字類型轉換為字符串類型需要以下哪個函數？(二)
A.Val() B. Str() C. Asc() D. Chr()
11，VB中表單文件的擴展名是_ _ _ _ _。
(A)VBP (B)FRM(右)(C)VBW (D)
12.設計應用程序時，可以通過_ _ _ _ _窗口查看應用程序項目中的所有組件。
(a)代碼窗口(b)窗體設計窗口(c)屬性窗口(d)項目資源管理器窗口(對)
13.在VisualBasic中，所有窗體和控件都必須具有_ _ _ _ _ _屬性。
(A)名稱(右)(B)字體(C)標題(D)填充顏色
14.變量名不正確是_ _ _ _。
(a)必須以字母開頭，不能是數字或其他字符。
(b)不能是VB的保留字。
(c)它可以包含字母、數字、下劃線和標點符號(對)
(d)不能超過255個字符。
15.下列變量名中，_ _ _ _ _不符合VisualBasic的命名標準。
(A)Abc901 (B)_mnu_Open_234(右)(C)price_ (D)K
16.在窗體上繪制壹個命令按鈕(名為Command1)，然後編寫以下事件過程:
PrivateSubCommand1_Click()
丁巴辛泰格
b=b+1
末端接頭
運行程序，點擊命令按鈕三次後，變量B的值是_ _ _ _ _ _。
(A)0 (B)1(右)2 (D)3
17.下列程序段的執行結果是_ _ _ _ _ _。
X=5:Y=-20
IfNotX & gt0The
X=Y-3
其他
Y=X+3
Endif
PrintX-Y；Y-X
(A)33(右)(B)5-8 (C)3-3 (D)
18.當x為偶數時，在表單上顯示“偶數”，否則顯示“奇數”。不能實現這個代碼段功能的是
(A)ifx\2=x/2thenprint "偶數" elseprint "奇數"
(B)if xmod 2 = 0 then print " even " else print " odd "
(C)ifnotxmod 2 & lt；& gt0然後打印“偶數”否則打印“奇數”
(D)ifx\2=int(x/2)則打印“偶數”否則打印“奇數”(右)
19.如果在執行以下程序段後，表格上顯示“紅色”字樣，則可接受的x值為:
選擇caseint(x/10)
案例2、4、6、8
打印“黃色”
案例1，3，5，7，9
打印“綠色”
凱斯埃爾
打印“紅色”
結束選擇
(A)27 (B)38 (C)10 (D)5(右)
20.在程序代碼中，將圖片文件mypic.jpg加載到畫框Picture1的語句是_ _ _ _ _ _。
圖片1。Picture="mypic.jpg "
圖片1。Image="mypic.jpg "
(c)圖片1 . picture = load picture(" mypic . jpg ")(右)
(D)LoadPicture("mypic.jpg ")
21.大多數控件不具備的屬性是_ _ _ _ _。
(a)頂部(b)名稱(c)啟用(d)間隔(右)
22.以下是正確的字符串常量_ _ _ _ _ _ _ _ _ _ _ _
(A)#ABC" (B)$ABC$ (C)'ABC' (D)"ABC "(右)
23、設a=8，b=10，那麽下列表達式的值真的是_ _ _ _ _ _ _ _ _ _
(A)(-3+5 >；a)和(b & gt0)(B)a & gt；= bandb & gt12(C)not(b & gt；0)(D)(a & gt；b)或(b & gt0)(右)
24.陳述Z=y+1代表_ _ _ _ _ _ _ _ _
(a)將變量z存放在變量y中，加入1的表達式。
(b)變量z取值為y+1(對)
(c)變量Z取變量Y的值，然後加上壹個表達式1。
(d)將變量z存儲在變量y+1中。
25.執行以下語句後，生成的信息框的標題是_ _ _ _ _ _ _ _ _。A=MsgBox("AAAAA "，3，" BBBBB ")
(A)BBBBB(右)(B)AAAAA (C) null (d)錯誤，無法生成信息幀。
26.執行下面的代碼，分別輸入12和89，輸出結果是_ _ _ _ _。
PrivateSubForm_Click()
a =輸入箱(" D ")
b =輸入箱(" E ")
Printa+b
末端接頭
(a)101(b)1289(c)1289(右)
27.為了暫時關閉計時器，計時器的壹個屬性應該設置為False，這是_ _ _ _ _ _。
(A)啟用(右)(B)可見(C)定時器(D)間隔
28.以下哪個表達式可以生成1和6之間的隨機整數(包括1和6) _。
(a)int(rnd * 7)(b)int(rnd(6)+1)(c)int(rnd * 6)(d)int(rnd * 6+1)(右)
29.執行下面的程序，從鍵盤輸入10，運行結果是_ _ _ _ _ _ _ _ _。
PrivateSubCommand1_Click()
S=InputBox("請輸入壹個數字:")
選擇案例
CaseIs & gt0
打印" & gt0"
CaseIs & gt三
打印" & gt3"
CaseIs & gt五
打印" & gt5"
結束選擇
末端接頭
(A)>0(右)(B)>3 (C)>5 (D)>0
29.在窗體上繪制壹個命令按鈕和壹個文本框，名稱分別為Command1和Text1，然後編寫以下程序:
PrivateSubCommand1_Click()
A=InputBox("請輸入日期(1~31)")
選擇案例a
CaseIs & lt=0，Is & gt=31
T=t+“錯誤”
caseIs & lt=10,20
T=t+“北京”
caseIs & lt=20
T=t+“大連”
caseIs & lt=31
t=t
(壹)假日旅遊路線:北京大連
(二)假日旅遊線路:大連、北京
(三)假日旅遊路線:北京(右)
(d)假日旅遊路線:大連
第三，按程序填空
序列結構
1，加法。三個文本框的名稱分別為text1 text2 text3。
清除按鈕
私有子命令1_Click()
______________________________
末端接頭
添加按鈕
私有子命令2_Click()
______________________________
末端接頭
退出按鈕
私有子命令3_Click()
______________________________
末端接頭
2.編程，用鍵盤輸入小時、分鐘、秒後，多少秒轉換成* * *秒？(界面如下)。三個文本框的名稱是:text1 text2 text3。轉換結果中的標簽名稱是label1。
計算按鈕程序編寫如下
私有子命令1_Click()
______________________________
末端接頭
3.寫壹個程序計算兩個整數相除後的商和余數。運行後參考界面如下:兩個文本框的名稱分別為:text1 text2，除數標簽label1余數標簽label2。
計算按鈕代碼編寫
私有子命令1_Click()
______________________________
_______________________________
末端接頭
條件語句
1，寫出條件語句的格式
行if語句結構
塊if語句結構
選擇語句結構
1，倒計時程序:當a倒數到0時，輸出時間；當它沒有達到0時，減去1。
“Dim a as integer”全局變量定義
開始計時按鈕代碼編寫:
私有子命令1_Click()
a = 10
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _啟動計時器。
命令1。可見=假
末端接頭
時間控制定時器1代碼編寫:
私有子定時器1_Timer()
如果a = 0，那麽
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _輸出時間到了。
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ '計時停止。
命令1。可見=真
其他
Label1。標題= a
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ '倒計時
如果…就會結束
末端接頭
2、等級評價
90分以上為優秀，80-90分為良好，70-80分為壹般，60-70分為及格，60分以下為不及格。
私有子命令1_Click()
將x標註為單個
x = Val(Text1。正文)
' Select case _ _ _ _ _ '使用Select…Case語句。
案例_________
文本2。Text = "優秀"
案例是& gt80
文本2。Text = "好"
案例是& gt70
文本2。Text = "Medium "
案例是& gt60
文本2。Text = "通過"
其他情況
文本2。Text = "失敗"
________________
末端接頭
3.機票標準價1000元/張，10月或3-6月65438+每張6折。9月-165438+10月每張票7折，7、8月每張票8折。其他月份每卡九折。需要設計壹個程序，輸入月份和張數，計算應付金額。
提示:select語句
私有子命令1_Click()
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _定義m，n，z n，z為整數變量。
m = Val(Text1。正文)
N = Val(文本2。正文)
Select Case m '按月選擇。
案例_ _ _ _ _ _ _ _ _ 65438+10月或3月至6月
z = 0.6
案例_ _ _ _ _ _ _ _ _ _ ' 9月~ 165438+10月
z = 0.7
案件7、8
z = 0.8
其他情況
z = 0.9
結束選擇
MsgBox“妳* * *需要付費:“&；1000 * N * z，，"結算"
末端接頭
第四，寫程序問題
1，奇偶判斷
判斷奇偶性，余數為0就是偶數，否則就是奇數。文本框名稱:text1，text2。
私有子命令1_Click()
Dim int1為整數，int2為整數
int1 = Val(Text1。正文)
Int2 = int1 Mod 2 '可被2整除以取余數。
如果int2 = 0，則判斷它是否是偶數。
文本2。Text = "這是壹個偶數！"
其他
文本2。Text = "這是奇數！"
如果…就會結束
2.周計算程序的文本框名稱:text1 text2。
私有子命令1_Click()
Dim Rq為日期，x為整數
Rq = Text1。文本
x = ABS(rq-# 1/1/1900 #)mod 7 '用1/1900減去當前日期，得到7的余數。
選擇案例x
如果余數是0，那壹天就是星期壹。
文本2。Text = "星期壹"
Case 1 '如果余數是1，那壹天就是星期二。
文本2。Text = "星期二"
案例2
文本2。Text = "星期三"
案例3
文本2。Text = "星期四"
案例4
文本2。Text = "星期五"
案例5
文本2。Text = "星期六"
其他情況
文本2。Text = "Sunday "
結束選擇
末端接頭
3.大小比較程序的文本框分別為text1 text2，標簽為label1。
私有子命令1_Click()
將x標註為整數，y標註為整數
x = Val(Text1。Text): y = Val(Text2。正文)
如果x & lty然後‘判斷x & gty是真的嗎？如果是，請執行以下步驟。
Label1。Caption = " & lt
ElseIf x & gt那好吧
Label1。Caption = " >
其他
Label1。Caption = "= "
如果…就會結束
末端接頭