常见 VB考试题型.docVIP

1 HYPERＬＩＮＫ ＂:\\例题＼\vb例4。１顺序结构、frm＂　＼ｔ　”_paｒｅnt 输入半径 ＨYＰＥRLINK ”:\\例题\\vb例４、１顺序结构。frm ＼ｔ ＂_parｅnｔ , HYPEＲＬINK ＂:\＼例题\\ｖb例４、1顺序结构、fｒm＂　\ｔ　”_paｒeｎt” 求圆面积与球体积。 Privatｅ　Sub Forｍ_Lｏａｄ() Diｍ r As Single, s As Ｓingle, ｖ Aｓ Single r ＝ InｐｕtＢox(＂请输入半径r:”, ＂输入数据) s =　3。14 *　r ＾ 2 ｖ　＝　4 / ３ ＊ r　^ 3 ＊ 3。14 ＇Prｉnt 圆面积为:; s Prinｔ ”球体积为:”; ｖ MsｇBoｘ (＂圆面积为:＂ ＆　s Space(2) ＆ 球体积为:” v) Ｅｎd Ｓuｂ 2输入两个数存放在x与y中 ,比较大小,保证大数放在x中,小得数放在Y中。 Pｒivate Sｕｂ maｎd1＿Click() Pｒint ＂比较前:＂ X =　ＩnputBox(”请输入X) Y = InpuｔBoｘ(＂请输入Ｙ＂) Prinｔ　X=; X, ＂Y=;　Ｙ If X Y Tｈｅｎ Ｚ = Y Y ＝ X 　 X = Z End If Print ”比较后: Prinｔ　＂X=＂;　Ｘ, Y＝”;　Y Eｎd　Sub 3 判断一个整数得奇偶性 Private Sub　Ｆｏrm_Click() ｘ　= Val(IｎpｕtBｏx(＂请输入一个数;)) If　x Mod 2　= ０ Ｔhｅn 　MsgBox　(x 就是偶数”) Else 　MｓgＢｏx (ｘ ＆　 就是奇数”) Ｅnd Iｆ Ｅnｄ Suｂ ４ 　ＨＹPERLINＫ :\\例题\\VB例双分支结构密码.frm” ＼t ＂_pareｎt＂ 帐号与密码 Pｒiｖate Sub mand1_Cliｃk() If Tｅxt１。Ｔext = ”12345＂ Then 　 If Tｅxt2、Teｘｔ　= ”1234５” Thｅn 　ＭsgBox 登录成功＂, 64　＋　1, ”登录＂ 　 Ｅlｓe MｓｇBox 密码错误,请重新输入”, １6 End Iｆ Else 　 MsgBox ”用户不存在＂, 16　+　１, ”登录 End　If End Sub 5　判断一个数就是整数还就是小数,如果就是整数再判断其奇偶性 、 Pｒｉｖａte Sub　Fｏrm_Ｃlick() ｘ　＝ InpｕtＢox(＂请输入一个数;＂) If ＩnStr(１,　x, ”.”)　＝　０ Thｅｎ 　 If x　Mod　2 ＝　0 Tｈｅｎ 　 MｓgBｏx　(x ＆ ” 　就是整数,就是偶数！＂) Ｅlｓｅ 　 　MsgＢox (ｘ　＆ 就是整数,就是奇数！) 　 Enｄ If Else 　 ＭsgBoｘ (ｘ 　” 就是小数＂) Ｅnd If Enｄ Sub ６ 　HYPEＲLINK :＼\例题\\例4多分支结构。fｒm \t ＿paｒent” 书店优惠售书 Prｉvatｅ Suｂ mand１_Clｉck() Dim　x As Sｉｎgｌe, y As　Singｌe x　= Ｖａｌ(Text1.Ｔext) Sｅleｃt Cａsｅ x Case　Is 〈=　１０0 y = x ＊ 0。8 　 　Ｃaｓe Is ＜= 2００ 　　 y　= ｘ　* 0、7 　　　Ｃａｓe Iｓ ＜＝　３00 　 　y = x *　０.5 　 　Cａse　Else y =　x ＊ 0、3 Ｅnd　Seleｃｔ Labeｌ３.Captｉon　= y　 元 End Sub 7　 HYPＥＲLIＮK　:\＼例题＼＼VＢ例4—计程车收费。ｆrm ＼t ＂＿pａrｅnｔ＂ 设计一个计程车收费程序 Privａte　Sｕb Ｃommand1_Clicｋ() X ＝ Val(Text1.Text) Select Caｓe X Ｃase　Iｓ 〈＝　3 Labｅl3、Caｐｔion ＝ 6 Ｃａse Is　〈= 30 Laｂeｌ3.Captｉｏｎ = 6 + (X　- 3) * 1。５ Ｃase Ｅlｓe 　Ｌaｂeｌ3、Captioｎ　= ６ + 2７ * １.5 + (Ｘ － 3０) ＊　２ End　Seｌｅct Eｎd Sｕb 8 HYPＥRLINK ＂:\\例题\\１0个数累加。ＦRＭ”　\t _ｐａｒeｎt” 输入 HYPERLINＫ :＼＼例题\\10个数累加。ＦＲM” \t ＂_ｐａｒent＂ 10 ＨYP