《计算机程序设计基础》课后练习题

1、计算机程序设计基础课后练习题1一 判断题(1) 事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2) 若X2, Y5，则表达式 Y2XAND X2Y 的结果为：True。(3) 常量是指在程序运行过程中其值可以改变的那些量。(4) VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。(5) 定义变量：Dim max,min as Single , 则max 和 min 的数据类型均为Single。(6) 如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。(7) 标准模块文件的扩展名是“*.VBP”。(8) 定时器控件可以响应Click事

2、件，但不能响应DbClick事件。(9) 在默认情况下，数组下标下界的缺省值为1。(10) 在使用字体对话框时，需要对其Flags属性先进行相应设置。二 单选题(11) 在Visual Basic中，表示鼠标单击事件的是 。A）Activate B）DoubleClick C）Click D）MouseDown(12) 用于设置计时器时间间隔的属性是 。A）Interval B）Name C）Left D）Top(13) 函数Int(10*Rnd)是在 范围内的整数。A）1，10 B）1，10C) 0，9) D）0，9(14) Select case语句结构的结尾应使用 _ 。A）End B）

3、 End Case C） End Sub D） End Select(15) 改变了容器的坐标系后，该容器的 属性值不会改变。A）left B）scaleleft C）scaletop D）scalewidth(16) 执行下列语句后，列表框中各表项顺序为 List1.Clear For i=1 to 4 : List1.AddItem i-1,0 ：Next iA） B） C） D）(17) 输入对话框InputBox的返回值的类型是 。A）字符串 B）整数 C）浮点数 D）长整数(18) 将焦点主动设置到指定的控件或窗体上，应采用 方法。A）SetDate B）SetFocus C）Set

4、Text D）GetData(19) 有如下程序段：Dim I As Integer , S As IntegerS = 1FOR I = 1 TO 8 STEP 2 S = S * INEXT IPRINT “S = “ ; S运行结果为 A）S = 9 B）S = 105 C）S = 1 D）S = 16(20) 利用以下_语句，可以输出日期和时间信息。A）Print Date B）Print Month C）Print Time D）Print Now(21) 一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是_。A）对象，属性，事件 B）对象，属性，方法C）属性，对象，方法 D）属性，对象，事

5、件(22) 将通用对话框以“打开文件对话框”方式打开，则选以下方法。A) ShowOpen B）ShowColor C）ShowSave D）ShowFont(23) 执行语句“Line (100, 100)-(150, 200), vbBlue, B”,在窗体上绘制出一个矩形，那么该矩形的面积 = 。A）5000 B）10000 C） 15000 D）20000(24) 如何使一个标签或按钮控件在运行时不可用_。A）把它的Visible属性设置成False B）把它的Visible属性设置成TrueC）把它的Enabled属性设置成False D）把它的Enabled属性设置成True(25

6、) 下列 表达式的结果为1234556789。A）Trim(12345 + 56789) B）Ltrim(12345 )+Rtrim( 56789)C）Rtrim(12345 ) & (56789) D）Ltrim(12345 ) & Rtrim( 56789)(26) 将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，_。A）图形框中的图片自动改变大小适应图形框B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D）如果图片的大小比图形框小，则图形框大小不发生变化。(27) 要获得当前驱动器应使

7、用驱动器列表框的哪个属性 。A）Path B）Drive C）Dir D）Pattern(28) 以下关于函数过程的叙述中，正确的是_。A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型(29) 单击滚动条的滚动箭头时，产生的事件是_。A）Click B）Scroll C） Change D）Move(30) 以下能返回文件长度的函数是_。A）BOF B）LOF C）LEN D）EOF三 程序填空题【程序填空1】在C盘当前文件夹下已存在

8、名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。Private Sub Form_Load() （31） Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf （32） = END ThenClose #EndElse （33） Text1

9、.Text = End IfEnd IfEnd Sub(31) A）Open C:Data.txt For Output As #B）Open C:Data.txt For Input #C）Open C:Data.txt Input As #D）Open C:Data.txt Output As #(32) A）LCase(Text1.Text) B）Text1.TextC）Str(Text1) D）UCase(Text1.Text)(33) A）Write #1, Text1 B）Write #1, Text C）Write #3, Text1.Text D）Write #1, Text.

10、Text【程序填空2】程序运行后如下图所示，Label1的Caption显示为 字体定时变大，影响字体大小的属性每隔0.5秒增加1，数值在8，72之间变化。Option ExplicitPrivate Sub Form_Load()Timer1.Enabled = True （34） Label1.Caption = 字体定时变大End SubPrivate Sub Timer1_Timer() Static i As Integer If i = 72 Then i = 7 i = i + 1 （35） End Sub(34) A）Timer1.Interval=5/10B）Timer1.I

11、nterval = 500C）Timer1.Interval=True D）Timer1.Interval=False (35) A）Label1.FontSize = i B）Label1.Font = iC）Label1.Size = i D）Label1.FontSize = i+1 【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序。Private Sub Command1_Click()Dim a(1 To 5) As IntegerDim n%, i%，j%, t%a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) =

12、23For i = 1 To 4 For j = 5 To i+1 Step -1 If （36） Then t = a(j) （37） a(j - 1) = t End If Next jNext iFor i = 1 To 5Print a(i);Next iEnd Sub (36) A）a(j) a(j - 1) C）a(i) a(j) D）a(j) a(i) (37) A）a(i)=a(j) B) a(j-1)=a(j) C）a(j)=a(i) D) a(j) = a(j - 1)【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Capt

13、ion属性分别为“城市名称”和空白的标签。程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的ASCII码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。Private Sub Combo1_ KeyPress (KeyAscii As Integer)If _ (38) ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= _ (39) ThenLabel2.Caption=输入项已在组合框中Ex

14、it SubEnd IfNext iLabel2.Caption=已成功添加输入项Combo1._ (40) Combo1.TextEnd IfEnd Sub(38) A）KeyAscii=0 B）KeyAscii=13 C）KeyAscii=8 D）KeyAscii=9(39) A）Combo1.ListIndex B）Combo1.List(i) C）Combo1.AddItem(i) D）Combo1.Clear(40) A)Selected B)RemoveItem C)AddItem D) ListIndex四 程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出

15、的a、b、c的值为_(41)_，第二次单击后输出的a、b、c的值为_(42)_，第三次单击后输出的a、b、c的值为_(43)_。Private a%, b%, c%Private Sub Form_Click() Dim a As Integer c = 2 Call AA(c) b = BB(a) Print a, b, cEnd SubPublic Sub AA(c%) a = c + b c = a + cEnd SubPublic Function BB(ByVal b%) b = b + 1 BB = a + bEnd Function(41) A）2 5 4 B）2 3 4 C）0

16、 3 4 D）0 3 2(42) A）7 12 9 B）7 15 9 C）0 6 2 D）0 6 7(43) A）0 9 10 B）0 9 2 C）17 19 35 D）10 27 32【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。Private Sub Form_Click()Form1.Scale (-10, 10)-(10, -10)Form1.Circle (0, 0), 5, , -3 * 3.14 / 2, -3.14Form1.FillStyle = 0End Sub(44) 运行以上程序，第一次单击窗体后，Form1上的输出结果是 (44

17、) ， A） B ） C） D） (45) 第二次单击窗体后, Form1上的输出结果是 (45) 。 A） B） C） D） 【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（：表示回车）Private Sub Form_Load() Text1.Text=: Form1.ClsEnd SubPrivate Sub Text1_KeyPress(k As Integer) Static s As Integer If (Chr(k) 9) And k 13 Then k=0 If k=13 Then s = s + Val(Text1.Text): Te

18、xt1.Text = : Print s;End Sub(46) 写出运行时在Text1中依次按“1 3 5 ”输入后窗体上的显示结果_(46)_。A）1 4 9 B）9 C）1 3 5 D）5(47) 写出运行时在Text1中依次按“1 -3 5 ”输入后窗体上的显示结果_(47)_。A）1 -2 3 B）1 4 9 C）1 -3 5 D）3(48) 写出运行时在Text1中依次按“1 2a 5 ”输入后窗体上的显示结果_(48)_。A）1 43 48 B）1 2 5 C）5 D）1 3 8【程序阅读4】Private Sub Form_click() Dim x As Single x =

19、 Val(InputBox(输入x) Select Case x 2 Case 1 Print y=; x Case 2 Print y=; x Mod 2 Case 3 Print y=; x Mod 3 Case Else Print y=; x 2End SelectEnd Sub(49) 当x的输入值为5时的运行结果为 （49） A）y=5 B）y=2.5 C）y=1 D）y=0(50) 当x的输入值为5.5时的运行结果为 （50） A）y=5 B）y=2.5 C）y=1 D）y=0(51) 当x的输入值为-7时的运行结果为 （51） A）y=-7 B）y=-3 C）y=1 D）y=3

20、.5【程序阅读5】设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_(52)_、第二项_(53)_。Private Sub Form_Load() HScroll1.SmallChange = 1: HScroll1.Max = 5 HScroll1.Min = 1: HScroll1.Value = 1 Combo1.ClearEnd SubPrivate Sub HScroll1_Change() Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub(52) A）

21、abc B）abcd C）ab D）abcde(53) A）ab B）abcde C）abc D）abcd【程序阅读6】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。Private Sub f(s As String) Dim i As Integer, n As Integer, c As String n = Len(s) If n Mod 2 = 1 Then c = Mid(s, n 2 + 1, 1) For i = 1 To Len(s) 2 c = Mid(s, Len(s) + 1 - i, 1) + c + Mid(s, i, 1) Next i s

22、 = cEnd SubPrivate Sub Command1_Click() Dim x As String x = InputBox(x=) Call f(x) Print xEnd Sub(54) 单击Command1后输入abc，窗体上显示结果为（54） ：A）cba B）bca C）abc D）acb(55) 如果将Sub过程f首句改为Private Sub f(Byval s As String)，单击Command1后 输入abcd，窗体上显示结果为：（55） A）abdc B）cdab C）abcd D）bcad计算机程序设计基础课后练习题2一、判断题1 任何控件都有一个Cap

23、tion属性。2 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。3 用以下语句定义：Dim max,min as Single , 则max 和 min 的数据类型均为Single。4 通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。5 用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。6 在某列表框中一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。7 VB中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标

24、准模块文件是可选的，其扩展名是.cls。8 用Cls方法可以清除组合框中的所有表项。9 Frame控件可以作为其他控件的容器。10 Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。二、单选题11. P的值为3时，P2的值是_。A、9 B、9 C、6 D、-612. 以下程序段的执行结果为_。A=0: B=1DoA=A+BB=B+1Loop While A10C、Case Is10 And Is1016. 执行语句s=Len(Mid(VisualBasic,0,5)后，s的值是_。A、Visual B、Basic C、6 D、表达式有错17. 以下关

25、于函数过程的叙述中，正确的是_。A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，过程的返回值可以有多个C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型18. 在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：Private Sub Txt_KeyPress(keyascii as integer) End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是_。A、单击鼠标 B、按下键盘上的“A”键C、鼠标滑过文本框 D、按下键盘上的任意键19. 执行行下面的事件过程，在窗体显

26、示的内容是_。Private Sub Command1_Click()Dim a As Varianta = Array(12, 23, 34, 45, 56)For i = 1 To 3Print Trim(a(i);Next IEnd SubA、122334 B、233445 C、12 23 34 D、23 34 4520. 将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，_。A、图形框中的图片自动改变大小适应图形框B、图形框自动改变大小适应其中的图形C、如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D、如果图片的大小比图形

27、框小，则图形框大小不发生变化。21. 在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线，写作_。A、Line (100,100)-(500,500) vbRed B、Line (100,100)-(500,500) RGB(0,255,0)C、picture1.Line (100,100)-(500,500) RGB(255,0,0)D、picture1.Line (100,100)-(500,500) Red22. 下列赋值语句中，_是错误的。A、x=x+1 B、x=x+y C、x+y=x D、x=4623. 单击滚动条的滚动箭头时，产生的事件是_。

28、A、Click B、Scroll C、 Change D、Move24. 在程序运行期间可以用_函数把图形装入窗体、图片或图象框。A、Autosize B、Stretch C、Picture D、LoadPicture25. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。A、1 3.4 5.8 B、1 3 5C、1

29、4 7 D、无数据输出26. _对象具有Clear方法。A、 窗体 B、 复选框 C、 列表框 D、 图片框27. 设a=16，b=7，c=1，则表达式 a 3 + 2 = b And c = 91 Mod 3的结果_。A、True B、False C、1 D、出错信息28. 设有如下通用过程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5 x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Cli

30、ck()Dim arr(5) As VariantDim n as IntegerFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是A、10 B、15 C、25 D、2429. 窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integer For num = 1 To 6 Step 3 Print num; Next num Print numEnd

31、Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。A、1 4 4 B、1 3 5C、1 4 7 D、无数据输出30. 以下_方式打开的文件只能读不能写。A、InputB、Output C、Append D、Random三、程序填空程序1在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用文本框输入若干英文单词，每次按下回车键时将文本框中的内容写入文件，并清除文本框的内容，直到文本框输入END为止，最后关闭文件。Private Sub Form_Load() （31） Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAsci

32、i As Integer)If KeyAscii = 13 ThenIf （32） = END Then （33） EndElse （34） Text1.Text = End IfEnd IfEnd Sub31. A、Open D:Data.txt For Output As #B、Open C:Data.txt For Input #C、Open C:Data.txt For Output As #D、Open C:Data.txt Output As #32. A、LCaseText1.Text B、Text1.TextC、Str(Text1) D、UCase(Text1.Text)33.

33、 A、Quit #1 B、Close #1C、End #1 D、Exit #134. A、Write #1, Text1 B、Write #1, Text C、Write #3, Text1.Text D、Write #1, Text.Text程序2下面程序的作用是利用随机函数产生100个随机整数,范围在20，120之间（包含20和120），打印其中为5或7的倍数的数，求出它们的总和并打印。请将下列程序补充完整。 Private Sub Command1_Click() SUM=0For i = 1 To 100 X = Int（ （35） ）If （36） ThenSUM=SUM+X （37

34、） End If Next i Print SUM=; SUM End Sub35. A、Int(Rnd*100+20) B、Int(Rnd*101+20)C、Int(Rnd*101+19) D、Int(Rnd*100+21)36. A、X Mod 5 = 0 and X Mod 7 = 0B、X 5 = 0 and X 7 = 0C、X 5 = 0 Or X 7 = 0D、X Mod 5 = 0 Or X Mod 7 = 037. A、Print X; B、Print SUM+X;C、Print SUM; D、Print SUM*X;程序3单击窗体后，用输入对话框输入x、n，然后按下式计算结

35、果。要求：将计算结果以标签控件显示，且标签控件每秒随机变换一次颜色。SOption Explicit Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single （38） s = 0 x = InputBox(x=) n = InputBox(n=) （39） for i= （40） t = t * x / i s = s + t Next i

36、 （41） End SubPrivate Sub Timer1_Timer() Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub38. A、Static s As Single B、Dim s As SingleC、Option Base 1 D、Const s As Single39. A、t = -1 B、t = 0 C、t = 2 D、t = 140. A、2 To n+1 B、1 To n C、2 To n D、1 To n+141. A、Label1.Caption = x B、Label1.Caption

37、= nC、Label1.Caption = s D、Label1.Caption = s+x程序4设计一个程序，用于从文本框Text1输入课程名称，单击按钮，添加到列表框（List1）中显示出来。具体要求：单击“Command1”按钮，若文本框Text1.Text中不是空格串，并且列表中也没有，则将该课程添加列表框中，然后清除文本框Text1的内容，再将焦点返回到文本框Text1，以便再次在文本框Text1输入内容，继续添加。Private Sub Command1_Click()Dim I As IntegerDim AddFlag As Boolean （42） If （43） ThenF

38、or i = 0 To （44） If List1.List(i) = Text1.Text Then AddFlag = False Exit For End IfNext i If AddFlag Then List1.AddItem Text1.TextEnd IfText1.Text = （45） End Sub42. A、AddFlag = -1 B、AddFlag = FalseC、AddFlag = 1 D、AddFlag = 043. A、text1.text = “” B、text1.text = “ ”C、text1.text “” D、text1.text “ NULL

39、”44. A、List1.ListIndex 1 B、List1.ListCount-1C、List1.ListIndex D、List1.ListCount45. A、text1.Clear B、text1.SetFocusC、text1.Move D、text1.ReFresh四、程序阅读程序1写出下列程序运行结果，单击命令按钮控件后窗体上的显示结果Private Sub Command1_Click() Dim a(1 To 6) As Integer For i = 1 To 6 a(i) = i * i Next i For j = 1 To 3 temp = a(6) For i

40、= 6 To 2 Step -1 a(i) = a(i - 1) Next i a(1) = temp Next j For i = 1 To 6 Print a(i); Next iEnd Sub程序2单击窗体后，在四个PictureBox控件中的图形分别是：Option ExplicitPrivate Sub Form_Click()Dim i%For i = 0 To 3 Picture1(i).Scale (-10, 10)-(10, -10)Next iPicture1(0).Line (-10, 10)-(0, 0)Picture1(0).Line -(-10, -10)Pictu

41、re1(1).Circle (0, 0), 5Picture1(2).Circle (0, 0), 5, , 0, 3.14159Picture1(3).Circle (0, 0), 5, , , , 2End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 3 Picture1(i).FillStyle = (i + 1) Mod 2 Picture1(i).ClsNext iEnd Sub程序3事先将text1.text设为为空，在获得焦点后,从键盘上依次按下以下键:1,2,+,3,4,-,5,6,/,1,4,然后按回车键，写出

42、输出结果。Private Sub Text1_KeyPress(K As Integer) If K Asc(9) Then K = 0 Print Text1.Text End IfEnd Sub程序4在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd FunctionPrivate Sub Command1_Click()Static x As Integerx = 10y =

43、5y = f(x)Print x; yEnd Sub计算机程序设计基础课后练习题3一判断题1 窗体或控件的事件的名称可以由编程人员确定。2 关系运算表达式1+2=3的运算结果为True。3 变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。4 控件的有些属性只能在运行时设置。5 数组在内存中占据一片连续的区域。6 驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7 当按钮的Default属性设置为True时，任何情况下按键，相当于单击该按钮。8 在过程中用Dim和Static定义的变量都是局部变量。9 设置数组下标下界缺省值为1的语句为option base 1

44、 。10 For-Next循环结构的默认步长为1。二单选题11当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？ 个。A) 1 B) 2 C)3 D) 412能够将文本框控件隐藏起来的属性是 。(A) Clear (B) Visible (C) Hide (D) New13. 下列符号中，哪个是VB合法的变量名？ 。A) a 123 B) Integer C) X_yz D) 14. inputBox函数返回值的类型为 。A) 数值 B) 字符串 C) 变体 D) 数值或字符串（视输入的数据而定）15. 表达式5+5 3 * 10 / 8 Mod 9 的

45、值是 .A) 4 B) 5 C) 6 D) 716. 如果在立即窗口中执行以下操作：a=4 (是回车键，下同)b=6 print ab 则输出结果是 。A) -1 B) 0 C) False D) True 17. 当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的。A）MouseDown B）MouseUp C）Load D）Click 18. 在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为 。 A）加号(+) B）减号(-) C）星号(*) D）感叹号(!)19. Select Case 语句属于程序基本结构中的：A）顺序结构 B）循环结构 C）分支结构 D）选择结构20. 为了把焦点移到某个指定的控件，所使用的方法是A) SetFocus B) Visible C) Refresh D) GetFocus21. 设a=3，则执行 x=IIf(a5,-1,0)后，x 的值为 。A) 5 B) 6 C) 0 D)