大学VB程序设计资料

1、 TEXT 5一：判断题第1题：在“工程资源管理器”，可以实现多窗体的所有操作。 对第2题：由于Single型变量的取值范围比Long型变量大，所以Single型变量开销内存也比Long型多。 错第3题：语句Const A=100是将A声明为一个常量。 对第4题：块If结构中的End if可以缺省。 错第5题：定义一个过程时，有几个形参，则在调用该过程时就必须提供几个实参。 错第6题： 列表框控件List1的最后一个表项为List1.List (List1.ListCount)。 错第7题： 移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变 错第8题：通过设置影

2、像框的Picture属性可改变影像框中显示的图片，若要清除图片也是通过设置Picture属性来实现。 对第9题：在消息框（MsgBox）中，“Prompt”（消息）是必选项，最大长度为64个字符。 错第10题：在程序运行中，目录列表框将以树形展开方式显示某个盘或目录内的各个子目录名，并用是否为打开的文件夹图标来表示选定的目录。 对二：选择题第1题：下列选项中，属于VB程序设计的特点是_。 A、面向过程、事件驱动 B、面向对象、顺序驱动 C、面向过程、顺序驱动 D、面向对象、事件驱动 第2题：在窗体Form1的LOAD事件过程中有语句：Form1.Print Visual Basic，但运行时窗

3、体并未显示打印文字，此时需要修改窗体的_属性,才能使窗体启动有输出结果 。 A、Autosize B、Enabled C、Autoredraw D、Visible 第3题：下面哪一项不可以赋值给数值型变量？ A、123.4 B、123.4 C、1.234F2 D、1.234E2 第4题：下面合法的变量名是_。 A、End B、private C、ABC_1 D、4A 第5题：由“For i=1 To 9 Step -3”决定的循环结构被执行_次。 A、4 B、5 C、6 D、0 第6题： 文本框控件的Alignment属性决定_。 A、是否显示多行文本 B、鼠标移至控件时，所显示的提示 C、显

4、示文本的对齐方式 D、文本框的显示内容 第7题： 将命令按钮Command1设置为窗体的取消按钮，可修改该控件的_属性。 A、Enabled B、Value C、Default D、Cancel 第8题：下列_是用来画圆、圆弧及椭圆的。 A、Circle方法 B、Pset方法 C、Line方法 D、Point属性 第9题：用户可以通过设置菜单项的 _属性值为False来使该菜单项不可见。 A、Hide B、Visible C、Enabled D、Checked 第10题：执行语句“Write #1, 123; -34.56, hey; Date”后，相应文件内被写入 _。 A、123,-34.

5、56,hey,2001-08-03 B、123,-34.56,hey,2001-08-03 C、123,-34.56,hey,#2001-08-03# D、123 -34.56 hey 2001-08-03 三：填空题第1题： 【程序说明】以下程序执行后将产生一个66的转置矩阵，将二维数组中所有行和对应列的元素进行交换。 Private Sub Form_Click() Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print 原始数据 For i = 1 To 6 For j = 1 To 6 a(

6、i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j Form1.Print Next i For i = 2 To 6 For j = 1 To - 1 - - 2 - Next j Next i Form1.Print 转置后数据 For i = 1 To 6 For j = 1 To 6 - 3 - Next j Form1.Print Next I End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp En

7、d Sub 参考答案：I 参考答案：Call Swap(a(I, j), a(j, I)或.Swap a(I, j), a(j, I) 参考答案：Print a(i, j); 第2题： 【程序说明】本程序利用1个定时器、1个文本框和2个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟，不计算秒数）。 Dim x as longPrivate Sub Form_Load() Timer1.

8、Interval = 60000: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Cls x = 0 -1-End SubPrivate Sub Command2_Click() Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = -2- m = x mod 60 Print 运行了 + Str(h) + 小时 + Str(m) + 分 End SubPrivate Sub Timer1_Timer() -3- Text1.text

9、= xEnd Sub 参考答案：Timer1.enabled=true 参考答案：x60 参考答案：x=x+1 第3题： 【程序说明】程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1控件数组，程序运行时，单击Image1时，Image2显示相应的图片，同时在Picture1中用蓝色显示哪个图案被选中的文字信息。 Private Sub Image1_Click(Index As Integer) -1- Picture1.FontSize = 20 -2- = vbBlue Picture1.Cls -3- Case 0 Pic

10、ture1.Print 红桃被选中 Case 1 Picture1.Print 草花被选中 Case 2 Picture1.Print 方片被选中 Case 3 Picture1.Print 黑桃被选中 End SelectEnd Sub 参考答案：Image2.Picture =Image1(Index).Picture 参考答案：Picture1.ForeColor 参考答案：Select Case Index 第4题： 【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体、字号和字效等进行设置。Private Sub Form_Click() -1-259 Commo

11、nDialog1.Action =-2- Text1.FontBold =-3- Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSizeEnd Sub 参考答案：CommonDialog1.Flags 参考答案：4 参考答案：CommonDialog1.FontBold四：阅读题第2题：请写出鼠标点击弹出菜单第三项后窗体上的显示结果。Private Sub Form_MouseDown(Button As

12、 Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuPopup, 10 End SubmnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名Private Sub mnuChoice1_Click() Label1.caption=”折叠” print Label1.caption End SubPrivate Sub mnuChoice2_Click() Label1.caption=”展开” print Label1.caption End SubP

13、rivate Sub mnuChoice3_Click() Label1.caption=”退出” print Label1.captionEnd Sub A、折叠B、展开C、退出D、无显示 参考答案C第1题：请写出在文本框中输入“李小丽”并按下回车键后，窗体上显示的结果。Private Sub Text1_Change()Print Text1.Text;”welcome!” End Sub A、 李小丽B、李welcome!welcome! 李小welcome!李小丽welcome!C、丽welcome! D、李小丽welcome!参考答案B、第3题：写出程序运行时单击窗体后，在图片框上出

14、现的结果。Private Sub Form_Load() Picture1.Width = Picture1.HeightEnd SubPrivate Sub Form_Click()Dim i As Single, x As Single, y As SinglePicture1.Scale (-100, 100)-(100, -100)For i = 0 To 2 * 3.1415926 Step 0.0001 x = 100 * Cos(i) y = 100 * Sin(i) Picture1.Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd

15、 * 256), Int(Rnd * 256)Next iEnd Sub答案 第4题：写出程序运行时单击窗体后，a1.dat文件的结果。Private Sub Form_Click() Dim k as integer, I as integerOpen a1.dat For Output As #1For k=5 to 1 step -1 For i = 1 To k : Print #1,k; : Next i Print #1, Next kClose #1End Sub A、1 1 1 1 1 2 2 2 2 3 3 3 4 4 5B、1 2 3 4 5 C、5 5 5 5 5 4 4

16、 4 4 3 3 3 2 2 1D、5 4 3 2 1参考答案：C第5题：【程序说明】写出下列程序运行时，单击窗体，由键盘输入一个整数29后，窗体上的显示结果。Private Sub Form_click() Dim idec As Integer, i As Integer Dim iDecR(16) As Integer Dim strDecR As String idec = Val(InputBox(输入数据idec=?) i = 0 Do While idec 0 iDecR(i) = idec Mod 2 idec = idec 2 i = i + 1 Loop strDecR =

17、 i = i - 1 Do While i = 0 strDecR = strDecR + Trim(Str(iDecR(i) i = i - 1 Loop Print strDecREnd Sub A、11011B、10111C、10101D、11101 参考答案 D、第6题：【程序说明】写出下列程序运行时，窗体上显示的内容。Private Sub Form_Click() Const n = 6 Dim xx(n) As Integer Form1.Cls For i = 1 To n xx(i) = i * i Next i Call fchange(xx(), n) For i = 1

18、 To n Form1.Print xx(i); Next iEnd SubSub fchange(a() As Integer, m%) For i = 1 To m / 2 t = a(i) a(i) = a(m - i + 1) a(m - i + 1) = t Next iEnd Sub 参考答案： A、36 25 16 9 4 1B、1 4 9 16 25 36C、6 5 4 3 2 1D、1 2 3 4 5 6五：设计题第1题：编程，求方程x2+y2=1000的所有整数解。参考答案： Private Sub Command1_Click()Dim x as integer, y a

19、s integerFor x = -34 To 34For y = -34 To 34If x 2 + y 2 = 1000 ThenPrint x, yEnd IfNext y, xEnd Sub 第2题：编写程序设计一个字幕推出程序。程序界面如下图所示，标签的字号在定时器的控制下，每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件。字号放大的速度由水平滚动条控制。 参考答案：Private Sub Form_Load()Label1.Left = Width / 2 - Label1.Width / 2Label1.AutoSize =

20、TrueHScroll1.Min = 1: HScroll1.Max = 1000HScroll1.SmallChange = 10: HScroll1.LargeChange = 100HScroll1.Value = 500: Timer1.Interval = 500End SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer()Label1

21、.FontSize = Label1.FontSize + 2Label1.Left = Width / 2 - Label1.Width / 2If Label1.FontSize = 72 Then Timer1.Enabled = FalseEnd Sub第3题：程序运行时在文本框中输入一段英文文字，单击命令按钮后将它们保存至文件E:yw.txt文件中，单击窗体后，显示输入对话框，在该对话框中输入任意一个字符，并在E:yw.txt中查找，如果找到a，则提示a是文件中第几个字符，否则提示a在文件中不存在。参考答案：Private Sub Form_Click() Dim a As Stri

22、ng, b As String, c As String Dim n As Integer a = InputBox(请输入一个字符) Open e: yw.txt For Input As #1 Do While Not EOF(1) Line Input #1, b c = c + b Loop n = InStr(c, a) If n 0 Then MsgBox a & 是文件中第 & n & 个字符 Else MsgBox a & 在文件中不存在 End If Close #1 End Sub Private Sub Command1_Click() Open e: yw.txt Fo

23、r Output As #1 Print #1, Text1.Text Close #1 End Sub TEXT 6一判断题第1题：在打开某窗体时，初始化窗体中的各控件，应选用Load事件。第2题：不能使用Visual Basic的关键字作为变量名。对第3题：表达式543的计算结果是True。第4题：若用数组作为过程的参数，则实参和形参结合是按地址传递的，定义过程时，参数前不能使用ByVal。第5题：If语句中的条件表达式只能使用关系表达式或逻辑表达式。对第6题：执行滚动条控件的Change事件不是在拖动滚动条滑块的过程中，而是在拖动过程停止时。第7题：将组合框的Style属性设置为0时，组

24、合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。第8题：将图片框的Align属性设置值为2，表示图片框在窗体中居中显示。第9题：用户要想在程序运行时改变目录列表框的显示内容，可以通过代码来设置List属性的值。第10题：如果创建的菜单的标题是一个减号“-”，则该菜单显示为一个分隔线，此菜单项也可以识别单击事件。二、选择题第1题：一个对象可以执行的动作和可被对象识别的动作分别称为_。 、事件、方法B、方法、事件、属性、方法、过程、事件 第2题：以下选项中不属于事件的是_。A、Enable、oad C、keypress D、click第3题：把一个数字字符串转换成

25、相应的数值的函数是_A_。A、Val B、single C、asc D、spc第4题：下列说法不正确的是_ B _。 A、变量名长度不能超过255个字符 B、变量名可以包含小数点C、变量名不能使用关键字 D、变量名的第一个字符必须是字母 5窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界_B_A下界必须为1 B缺省的下界为 C 下界必须为0 D缺省的下界为0第6题：下列_B_属性用来表示标签或窗体的标题。 A、Text B、Caption C、Left D、name第7题：将焦点主动设置到指定的控件或窗体上，应采用_B_方法。A B、SetFocus C D 第8题：描

26、述以（1000，1000）为圆心、以400为半径画1/4圆弧的语句，以下正确的是_C_。 A.Circle(1000,1000),400,0,3.1415926/2B.Circle(1000,1000),400,0,3.1415926/2C.Circle(1000,1000),400,0,3.1415926/2D.Circle(1000,1000),400,0,90 第9题：通用对话框可以通过对_D_属性的设定来过滤文件类型。A Action B Filterindex C Font D、Filter 第10题：执行语句Input #1,k,s,a,d1后，再执行语句Print k;s;a;d

27、1 (k、s、a、d1分别是整型、Single、字符串、Date类型，文件中相应字符为“234,-34.56,hello,#2001-08-03#”)，输出结果为_B_ A、234，-34.56，hello，2001-08-03B、234-34.56hello2001-08-03C、234，-34.56，”hello”，#2001-08-03#D、234 -34.56 hello#2001-08-03# 三：填空题第1题： 【程序说明】以下程序执行后将输出100到200之间所有的素数，并统计素数的个数 Private Sub Form_Click()Dim i%, j%, k%, t% t为统

28、计素数的个数 Dim b As Boolean For i = 100 To 200 b = True k= - 1 - j = Int(Sqr(i) Do While k = j And b If i Mod k = 0 Then - 2 - End If - 3 - Loop if b=true then t = t + 1 Form1.Print i End If Next i Print t=; tEnd Sub 参考答案：2 参考答案：b = False 参考答案：k = k + 1 第2题： 【程序说明】 下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件

29、中读入的数据显示在组合框中，如图所示。单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，将组合框中文本框部分的文本添加作为组合框的表项；单击Command1(3)后，将组合框中选中的表项删除。Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 -1- Open d:aaa.txt For Input As #1 Do While Not EOF(1) Line Input #1, a$ Combo1.AddItem a$ Loop Close #1 Case 1

30、Open d:aaa.txt For Output As #1 For I% = 0 To -2- Print #1, Combo1.List(I%) Next I% Close #1 Case 2 添加 Combo1.AddItem Combo1.Text Case 3 删除 -3- End SelectEnd Sub参考答案：Combo1.Clear 参考答案：Combo1.ListCount - 1 参考答案：Combo1.RemoveItem Combo1.ListIndex 第3题： 【程序说明】程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在“实心”、“透明

31、”间交替变换。-1-Private Sub Picture1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If -2-Then Picture1.FillStyle = 0 Else Picture1.FillStyle = 1 End If -3- End Su

32、b参考答案：Dim x0 As Single, y0 As Single或Dim x0!, y0! 参考答案：Picture1.FillStyle 0或Picture1.FillStyle=1 参考答案：Picture1.Line (x0, y0)-(X, Y), RGB(0, 255, 0), B 第4题： 【程序说明】设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp文件或gif文件。Private Sub Form_Click() CommonDialog1.DialogTitle =”打开图片文件

33、” CommonDialog1.InitDir=”c:Picture” -1-=bmp文件|*.bmp|gif文件|*.gif-2-Picture1.Picture=LoadPicture(-3-)End Sub参考答案：CommonDialog1.Filter 参考答案：CommonDialog1.ShowOpen或CommonDialog1.Action=1 参考答案：CommonDialog1.FileName4.、阅读题第1题：请描述出点击check1 一次、check2两次、Option1（2）两次后，文本框text1中文字“杭州”的显示格式。复选框和单选框初始状态都为未选中。Pri

34、vate Sub Check1_Click() If Check1.Value = 1 Then Text1.ForeColor = vbRed Else Text1.ForeColor = vbBlack End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0

35、 Text1.Alignment = 0 Case 1 Text1.Alignment = 1 Case 2 Text1.Alignment = 2 End SelectEnd Sub 参考答案：DA、杭州 为红色加粗的字，位于文本框中间B、杭州 为黑色加粗的字，位于文本框左侧C、杭州 为黑色不加粗的字，位于文本框中间 D、杭州 为红色不加粗的字，位于文本框中间已知窗体某主菜单上有三个子菜单项，当鼠标点击菜单第二项后请写出程序运行后的结果。m1、2、3顺序为3个子菜单名Private sub form_load() M1.enabled=false M2.enabled=true M3.ena

36、bled=falseEnd subPrivate Sub m1_Click()M1.enabled=true M2.enabled=false M3.enabled=falseEnd SubPrivate Sub m2_Click() M1.enabled=false M2.enabled=false M3.enabled=true End SubPrivate Sub m3_Click() M1.enabled=false M2.enabled=false M3.enabled=falseEnd Sub 参考答案：AA、程序运行后使得第1、2菜单项不可响应，第3个菜单项可响应。B、程序运行后

37、使得第1、3菜单项不可响应，第2个菜单项可响应。C、程序运行后使得第2、3菜单项不可响应，第1个菜单项可响应。D、程序运行后使得第1、2、3菜单项都不可响应。第3题：写出程序运行时单击窗体后，在窗体上出现的结果。Private Sub Form_Click() Dim i As Integer, x As Single, y As Single Form1.Scale (-300, -200)-(300, 200) For i = 1 To 100 x = 300 * Rnd If Rnd 0.5 Then x = -x y = 200 * Rnd If Rnd 0.5 Then y = -y

38、 Line (0, 0)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Next i End sub 参考答案：BA B、 C 第4题：写出点击2次窗体后，文件a1.txt中的内容。Dim k as integerPrivate sub form_load() K=5 End subPrivate Sub form_click() Dim j As Integer k = k + 1 Open a1.txt For Append As #1 For j = 1 To k: Print #1, j; : Next j Pri

39、nt #1, Close #1End Sub A、1 2 3 4 5 6 B、6 7 1 2 3 4 5 6 7 C、7 6D、1 2 3 4 5 6 7 1 2 3 4 5 6 参考答案：A第5题：【程序说明】写出下列程序运行时，单击窗体一次输入10、37、50、55、64、20、28、19、-19、0后，窗体上显示的内容。Private Sub Form_Click() Dim y As Integer Do y = InputBox(y=) If (y Mod 10) + Int(y / 10) = 10 Then Print y Loop Until y = 0End Sub 参考答案

40、：DA、37 55 64 28 19 19 B、10 50 20 C、10 50 20 0 D、37 55 64 28 19第6题：【程序说明】写出下列程序运行时，单击命令按钮后，窗体上的显示结果。Private Sub Cmdok_Click() Dim x As Integer, y As Integer x = 12: y = 32 Call Proc(x, y) Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub A. 2 32 B、12

41、 3 C、2 2 D、12 32 参考答案：A第1题：编程，将一个三位整数倒序输出.Private Sub Command1_Click()Dim x as integer, bw as integer, sw as integer, gw as integerx = Text1.Textbw = x 100sw = x 10 Mod 10gw = x Mod 10x = gw * 100 + sw * 10 + bwPrint xEnd Sub第2题：编程，当程序启动后用绿色文字显示绿灯2秒钟，接着黄色文字显示黄灯3秒钟，然后用红色文字显示红灯2秒钟。然后，再重新开始下一轮绿灯、黄灯、红灯的

42、显示。直到双击窗体停止变化。 参考答案：Dim k As IntegerPrivate Sub Form_Load()Label1.Caption = 绿灯End SubPrivate Sub Timer1_Timer()k = k + 1Select Case kCase 1 To 2Label1.Caption = 绿灯Label1.ForeColor = vbGreenCase 3 To 5Label1.Caption = 黄灯Label1.ForeColor = vbYellowCase 6 To 7Label1.Caption = 红灯Label1.ForeColor = vbRed

43、If k = 7 Then k = 0End Select 第3题：编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件1，单击按钮1后，调用通用对话框选择文件2；单击按钮2后，比较文件1和文件2的内容是否相同，如果不相同则用消息框提示“两个文件不一样”，相同则提示“两个文件一样”。参考答案：Dim fn As String Private Sub Command1_Click() CommonDialog1.Filter = (*.txt)|*.txtCommonDialog1.ShowOpen End SubPrivate Sub Command2_Click()Dim s1

44、 As String,s2 as string,flag as BooleanOpen fn For input As #1 Open CommonDialog1.FileName For Input As #2Flag=trueDo While Not EOF(1) Line Input #1, s1If not eof(2) then line input #2,s2 else flag=false:exit doIf s1s2 then flag=false:exit doLoopIf not eof(2) or flag=false thenMsgbox “两个文件不一样”ElseMs

45、gbox “两个文件一样”End ifCloseEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click()If Right(File1.Path, 1) = Then fn = File1.Path + File1.FileNameElsefn = File1.Path + + File1.FileNameEnd IfEnd SubPrivate Sub Form

46、_Load()File1.Pattern = *.txtEnd SubTEXT 7第1题：决定对象是否可见的属性是Show属性，决定对象可用性的属性是Load属性。第2题：表达式543的计算结果是True。第3题：Dim关键字可用来声明过程级变量，但不能用来声明模块级变量。第4题：在Select Case情况语句中，各个分支（即Case 表达式）的先后顺序无关。第5题：Sub过程名在过程中必须被赋值。6、 Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能完整地显示该图片。7：设置窗体的Fillcolor属性使窗体的填充

47、色为红色后，形状控件的填充色也是红色。8、当使用Circle方法画圆后，当前坐标在原点（0，0）。9、菜单编辑器中的快捷键是指无须打开菜单就可以直接由键盘输入选择菜单项的键。对 10、若要新建一个磁盘上的顺序文件，可用OUTPUT、APPEND方式打开文件。对1、以下选项中不属于事件的是_A_。 A、Enable B、Load C、KeyPress D、Click 2、要声明两个整型变量A和B,下面写法不正确的是_D_。 A、Dim A%,B%B、DimA%:DimB% C、Dim A As Integer:Dim B% D、Dim A%,Dim B% 3变量的类型可以用类型声明符隐式声明，下

48、列_A_符号是用来声明单精度浮点型的。 A、! B、% C、# D、$ 4、下列程序段中，错误的是_C_。 A、 A.Dim a(10) as integerfor i=1 to 10 :a(i)=inputbox(“”):next i B .n=10Redim a(n) as integerfor i=1to n:a(i)=inputbox(“”):next I C Redim a(n) as integern=10for i=1 to n :a(i)=inputbox(“”):next iD、const n=10dim a(n) as integerfor i=1 to n :a(i)=inputbox(“”):next i 5、如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是_B_。 A、Redim a As Integer B、Static a As Integer C、Public a As Integer D、Dim a As Integer 6、设计动画时通常