vb第一阶段复习题

Vb 第一阶段复习题 一 选择题 单选题 1 在 Visual Basic 语言中 对象能够执行的动作是 B A 事件 B 方法 C 属性 D 事件过程 2 要求窗体文件 main frm 运行后 将焦点设置到 name text1 的控件上 命令是 B A name setfocus B text1 setfocus C name setfocus true D text1 setfocus true 4 将数学表达式 写成 Visual Basic 的表达式 其正确的形式是 A A 5 exp 2 Sin a b 2 B 5 exp 2 Sin 2 a b C 5 ln 2 Sin a b 2 D 5 ln 2 Sin 2 a b 将变量 va 的值输出到标签控件上显示 使用的语句是 C A text1 value va B text1 caption va C label1 caption va D label1 value va 设置按钮 command1 用鼠标单击不发生 click 事件 设置属性语句是 D A command1 visible true B command1 visible false C command1 enabled true D command1 enabled false 10 在文本框 text1 中输入数据 当焦点一旦离开 就能引发对象事件过程的执行的事件 是 C click change lostfocus gotfocus 11 对象 Print 方法是 vb 程序中用于输出数据的方法 对象 1 是指 B A form picturebox printer label1 B form picture1 printer debug C form picture1 label1 text1 D form picture1 label1 printer 1 下面程序的运行结果是 B Private Sub Form Click Dim money tax money Val InputBox money input 3500 Select Case money Case Is 1000 Print money money Tax 0 Case 1000 To 3000 Print money money Tax money 1000 0 1 Case 3000 To 6000 Print money money Tax money 3000 0 15 200 Case Else Print money money Tax money 6000 0 2 650 End Select End Sub A money 1000 tax 0 money 3500 tax 275 money 4500 tax 425 money 6500 tax 750 13 下面程序的运行结果是 A Private Sub Form Click Dim year1 leap year1 Val InputBox now year input 2004 If year1 Mod 100 0 Then If year1 Mod 400 0 Then leap 1 Else leap 0 End If ElseIf year1 Mod 4 0 Then leap 1 End If If leap Then Print year1 is leap Else Print year1 is not leap End If End Sub A 2004 is leap 2004 is 1 2004 is not leap 2004 is not 0 14 下面程序的运行结果是 B Private Sub Form Click Dim m n m 1 For n 1 To 10 Step 2 m m n n n 1 Next n Print n n m m End Sub A n 10 m 22 n 11 m 23 n 13 m 36 n 13 m 23 16 下面程序的运行结果是 C Private Sub Form Click Dim num sum n sum 0 n 1 num 6 While n num If num Mod n 0 Then Print n sum sum n End If n n 1 Wend Print sum End Sub A sum 6 1 2 3 6 1 2 3 6 1 2 3 4 5 6 21 18 下面程序的运行结果是 C Private Sub form click Dim s t m n K m 3 s 0 Print s For n 1 To m Print n t 1 For K 1 To m t t K Next K s s t Next n Print s End Sub A s 6 S 1 2 3 6 S 1 2 3 18 1 2 3 18 19 下面程序的运行结果是 B Private Sub Form Click Dim str1 chr1 str1 InputBox string input Visual basic 是可视化面向对象的结构化高 级 程序设计语言 chr1 Left str1 1 Mid str1 8 1 Right str1 6 Print chr1 End Sub A Va 计语言 Vb 程序设计语言 V a 计语言 V b 程序设计语言 20 下面程序的运行结果是 C Private Sub Form Click Dim str1 n Text1 Text microsoft visual basic programming Text1 SelStart 17 Text1 SelLength 5 Text1 SelText Foxpro str1 Text1 Text n Len str1 Print str1 n End Sub A microsoft visual basic programming 34 Foxpro 6 microsoft visual Foxpro programming 35 Foxpro programming 二 程序结果分析试题 将程序结果填于答卷对应位置 1 private sub form click dim m n p m 24 n 36 print m n while n0 p m mod n m n n p print m n p wend end sub 24 24 0 2 private sub form click dim a b sum k a 0 b 0 sum a b for k 1 to 3 a a b b a b sum sum a b print a b next k print sum end sub 答案 0 0 0 0 0 0 0 5 Private sub form click Dim k1 k2 sum try tem red yu k1 2005 try k1 Mod 10 k1 k1 10 tem k1 Mod 10 k1 k1 10 red k1 Mod 10 k1 k1 10 yu k1 Mod 10 sum yu red tem try k2 try 1000 tem 100 red 10 yu Print k1 k1 k2 k2 Print sum sum End sub 本程序输出结果是 K1 0 K2 200200 SUM 2002 6 Private Sub form click Dim sum p m i K m 3 sum 0 Print sum For i 1 To m Print i p 1 For K 1 To m p p K Next K sum sum p Next i Print sum End Sub 本程序输出结果是 SUM 1 1 2 2 3 14 28 7 Private Sub form click Dim a b c a 5 b 9 c 12 a a b 14 c c b 3 if a c b c then a b c a 14 b 9 c 3 if a b b c then b a c print a b c End Sub 答案 12 9 3 8 下面程序的运行结果是 Private sub form click Dim str1 letter number other n Letter 0 number 0 other 0 Str1 inputbox 输入字符串 输入框 ab3 c d 5 For n 1 to len str1 Select case mid str1 n 1 Case a to z Letter letter 1 Case 1 to 9 Number number 1 Case else Other other 1 End select Next n Print letter letter number number other other End sub 9 下面程序的运行结果是 private sub form click Dim sum C m n K m 3 sum 0 Print sum For n 1 To m Print n C 1 For K 1 To n C C K Next K sum sum C Next n Print sum end sub 11 下面程序的运行结果是 9 7 Private Sub Command1 Click Dim a As Integer s As Integer a 8 s 1 Do s s a a a 1 Loop While a c Then d d x i 10 2 23 55 79 c x i Else d d c End If Next i Print d End Sub 14 下面程序的运行结果是 13 Private Sub Command1 Click For n 1 To 12 If n Mod 3 0 Then m m n 3 Next n Print n End Sub 三 程序设计题 1 编程 输入 x 值 按下式计算并输出 y 值 00 10 31 33 2 x xx xx xx xfy Private Sub Command1 Click X inputbox 请输入 X 的值 If x 3 then y x 3 else If x 1 and x 3 Then y x 2 If x 0 Then y 0 Else y x 1 2 End if End if End if End sub Print y 2 从键盘上输入二个正整数 m n 求它们的最大公约数 cd 和最小公倍数 cm 提示 1 对输入的数字要求过滤 若输入为非正整数 或是其它符号 信息框提示 数据错误 并能立即清除文本框内容 2 使用 do 循环结构编写程序 3 3 3 编程计算 编程计算 编程计算