第一篇：算法与程序设计VB试题与答案10
VB10
1、打开文件“考生文件夹178工程1.vbp”，完善Command1_Click事件及fac函数并保存。
实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。
Public Function fac(a As Integer)As Integer If a = 1 Then fac = ① Else fac = a * ②(a1)+ fib(n1)End If End Function
Private Sub Command1_Click()Dim sum As Integer sum = s(③)Print “sum=”;sum End Sub ①1 ②n ③100
6、打开“考生文件夹776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。
实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1，雨天对应文本框text2）
Private Sub Command1_Click()Dim x As Single Dim y As Integer y =(171.4)① = 11-y Text1.Text = Str(②)+ “天” Text2.Text = Str(③)+ “天” End Sub ①x ②x ③y
第二篇：算法与程序设计VB试题与答案08
VB08
1、打开“考生文件夹781”中的文件“test4.vbp”，完善Command1_Click事件代码并保存。
实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等。输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”。使用文本框Text1输入字符串，使用文本框Text2输出结果。
Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①
If Mid(s, i, 1)<> ② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok
2、打开文件“考生文件夹606工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。
Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①
For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s
3、打开“考生文件夹779test2.vbp”，完善Command1_Click事件代码并保存。
实现功能：输入一个正整数，计算并输出它的各位数字之和。如输入123，则输出6。使用文本框Text1输入正整数，使用文本框Text2输出计算结果。
Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)
4、打开文件“考生文件夹607工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)
Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②
③
Print “这10个自然数的平均值=”;s / 10 End Sub ①9
②s+a(i)③next i
5、打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。
实现功能：单击窗体时在窗体上打印下面所示的图案。
**** *** ** *
Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4
②print “*”;③next i
6、打开文件“考生文件夹610工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：
@ @@ @@@ @@@@ @@@@@ @@@@@@
Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i
②”@”;③j
第三篇：VB程序设计试题与答案
1.要使一个标签能够显示所需要的文本，应设置该标签的()属性的值(单)A.Caption B.Name
C.Text D.AutoSize 2.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为()(单)A.5
B.300
C.500
D.5000 3.下列的()对象支持KeyPress事件(单)A.文本框
B.命令按钮
C.标签框
D.图像框 4.确定一个控件在窗体上的位置的属性是()(单)A.Width或Height
B.Top和Height
C.Top或Width
D.Top和Left 5.确定一个窗体或控件的大小的属性是()(单)A.Width或Height
B.Top和Width
C.Top或Left
D.Top和Left
6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为()(单)A.面向对象的程序设计
B.结构化程序设计
C.事件驱动的编程机制
D.程序设计 7.在VB中，工程文件的扩展名是()(单)A..frm
B..vbp
C..bas
D..frx 8.在VB中，窗体文件的扩展名是()(单)A..frm B..vbp
C..bas
D..frx 9.VB集成开发环境可以(单)A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序 10.英文“VISUAL”的含义是()(单)A.可视化
B.集成C.结构化
D.调试
11.标准模块文件的扩展名是()(单)A.frm B.vbp C.bas
D.vbg 12.VB集成开发环境中，在()中编写代码(单)A.状态栏
B.属性列表框
C.代码框
D.标题栏
13.在面向对象的程序设计过程中，英文缩写“OOP”的含义是()(单)A.事件驱动的编程机制
B.结构化程序设计语言
C.面向对象的程序设计
D.可视化程序设计
14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是()(单)A.Timer1.Interval=0.5
B.Timer1.Interval=5
C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是()(单)A.VVV
B.Vis
C.sic
D.11
16.以下关于多重窗体程序的叙述中，错误的是()(单)A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体 17以下合法的Visual Basic变量的名称是()(单)A.a3
B.Const
C.9abc
D.a#x!
18.当一个复选框被选中时，它的Value属性的值是()(单)A.3
B.2
C.1
D.0
19.表达式 5 Mod 3+53的值是()(单)A.0
B.3
C.4
D.6
20设x=4,y=8,z=7, 表达式：(x＜y)Or z＜x 的值是()(单)A.1
B.-1 C.TRUE D.FALSE 21设有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后，x的值是()(单)A.6 B.7 C.8 D.9
22执行如下两条语句，窗体上显示的是()(单)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86
23下列说法中正确的是：为了保存一个Visual Basic应用程序，应当()(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件
24.要使一个文本框对象能够显示多行文字，应设置该对象的()属性值为True(单)A.Text B.MultiLine C.Style D.Visible 25.若要将窗体从内存中卸载，其实现的方法或语句是()(单)A.Show B.Unload C.Load D.Hide 26.以下选项中，不是VB标准控件的是()(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框
27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗体运行后，输入1，则label1的标题显示结果为()(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5
42在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是()(单)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub
B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub
43.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）A.分支1 B.分支2 C.Else分支 D.程序出错
44.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是()(单)A.True B.False C.1 D.出错信息
(46)在窗体上建立通用对话框需要添加的控件是
A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件
(47)在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是 A)Load B)Show C)Hide D)Unload
48)Sub过程与Function过程最根本的区别是
A)Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B)Function过程可以有形参，Sub过程不可以
C)Sub过程不能返回值，而Function过程能返回值 D)两种过程参数的传递方式不同
49保存一个工程至少应保存两个文件，这两个文件分别是）A)文本文件和工程文件 B)窗体文件和工程文件 C)窗体文件和标准模块文件 D)类模块文件和工程文件
50.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是
A)MousePicture B)Style C)DownPicture D)DisabledPicture
51假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False
52.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A)“中华民国”
B)“中国人民”
C)“中共人民”
D)“人民共和” 53下列表达式的值为2123的是（）
A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（）
A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不确定
55当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（）A)Load B)Click C)Unload D)GotFocus 56.无论何控件，都具有一个共同属性。这个属性是（）A)Text B)Font C)Name D)Caption 57.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）A)，B)；
C)、D)：
58.表达式12000 + ”129“ & 200的值是
A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）
A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块
60表达式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下属性和方法中，可重定义坐标系的是）
A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性 63.下面说法不正确的是()A)滚动条的重要事件是Change和Scroll B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能 C)组合框是组合了文本框和列表框的特性而形成的一种控件
D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
64.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）A)True B)2 C)0 D)1 65.下列关于过程叙述不正确的是（）
A)过程的传值调用是将实参的具体值传值递给形参 B)过程的传址调用是将实参在内存的地址传递给形参
C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D)无论过程传值调用还是过程传址调用，参数传递都是双向的
66.为了使标签能自动调整大小以显示全部文本内容，应把标签的【 】属性设置为true。67.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【 】属性设置为true。
68.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【 】.setfocus。
69.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为 图片控件名.picture=【
】。
70.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【 】属性设置为true。
71.窗体、图片框或图像框中图形通过对象的【 】属性设置。72.计时器事件之间的间隔通过【
】属性设置。
73.有时候要暂关闭计时器，这可以通过【 】属性设置为false来实现。74.设a=sqr(2),则语句Print format$(a,”000.0“)的输出结果是【 】。75.设a=sqr(3),则语句Print format$(a,”###.0“)的输出结果是【 】。76.VB应用程序通常由3类模块组成，即窗体模块、【 】模块和类模块。
77在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private sub command1_click()text1.text=”vb“ text2.text=text1.text
text1.text=”abcd“ End Sub 程序运行后，单击命令按钮，文本框text2中显示的内容为 ________。
78.在保存VB应用程序时，窗体文件和工程文件的扩展名分别为【.】和.vbp。79.下列可作为VB的变量名的是()(单)A.Filename B.A3B C.254D D.Print 80.与下列数学式cos2(c+d)对应的VB表达式是【 】。81.与下列数学式2a(7＋b)对应地VB表达式是【 】。82.在VB中，字符串常量要用【 】括起来。83.下面的事件不属于鼠标器事件的是()(单)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不属于键盘事件的是()(单)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件
85.对以下程序说法不正确的是()(单)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.显示”文件“打开对话框 B.打开的对话框的初始目录为C盘根目录 C.打开的对话框的文件类型为文本文件 D.以上说法都不正确
86.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”输入自然数n“, ”输入数“)m1 = InputBox(”输入自然数m“, ”输入数“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公约数=“, n Print ”最小公倍数= “, m1 * n1 / n End Sub 87.下面是求100以内素数的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean
For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之间5或7的倍数的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】处书写正确的是（）(单)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正确 91.要使得在按下鼠标左键时，激发mousedown事件，可以设置此事件中的button参数为()(单)
A.0 B.1 C.2 D.4 92.要使得在按下鼠标右键时，激发mousedown事件，可以设置此事件中的button参数为()(单)A.0 B.1 C.2 D.4 93.删除列表框中所有的项目所使用的方法为()(单)A.move B.remove C.clear D.removeitem 94.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果是()(单)A.456 B.111 C.567 D.111456 95.传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。
96.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是()(单)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正确
97.以下程序的作用是单击Check1检查框将使得Text1文本框的字体在”加粗“和”常规“之间进行切换。
Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序()(单)(1)Slider控件的滑块处于最小位置时值为8(2)Slider控件的滑块处于最大位置时值为72(3)单击Slider控件两端箭头时，滑块的增量值为2(4)单击Slider控件的空白处时，滑块的增量值为8 A.Slider1.Min = 8： Slider1.Max = 72：
Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8：
Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72：
Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8 99.以下能判断指针是否指向文件尾的函数是()(单)A.BOF B.LOC C.LOF D.EOF 00.窗体的过程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4个参数，关于这些参数，正确的描述是()(单)A.通过Button参数判定当前按下的是键盘上哪一个键 B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键 D.参数x,y用来设置鼠标当前位置的坐标
01.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是()(单)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount
1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【标准】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【双引号】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13
第四篇：算法与程序设计
《算法与程序设计》教学中实施研究性学习探步
作者：赵濮民
摘要：研究性学习是教育科研领域中一个崭新的课题。信息技术教学作为以培养创新精神、研究能力和实践能力为目标取向的必修课程，它强调让学生通过研究性学习，提出问题，收集材料，对研究性课题进行探索、分析、研究，最后基于问题解决模式，在实践操作中培养学生科学的态度和价值观以及创新精神、创新思维、创造能力，并学会解决生活中与信息技术学习有关的实际问题。职业学校的学生，不仅应具有独立接受知识的能力，更应具有独立探索知识的能力，由“研究性学习”补充原有的“接受式学习”，使学习方式更趋完善，只有当这两种学习方式结合起来，优势互补，才能使基础教育适应时代对人才培养的要求。
关键词：程序设计；研究性学习；求真；求全；求变；求新；优势互补
《算法与程序设计》是职业学校信息技术教学中的一个重点，也是难点。传统的程序设计教学以老师讲授型为主，由于算法与程序设计的内容逻辑性强，普遍认为在程序设计教学中难以实施研究性学习。
研究性学习是以“培养学生具有永不满足、追求卓越的态度，培养学生发现问题、提出问题、从而解决问题的能力”为基本目标，以学生从学习中获得作品设计与制作方法的困惑为方向，以在提出问题和解决问题的全过程中学习到算法与程序设计为学习方法的课程。经过反复研究，我们认为研究性学习可以应用于程序设计教学中。实施研究性学习的关键是要确定一个目标，要鼓励学生主动地发现问题，并且通过探究或实践活动去试图解决问题。在课题研究的过程中采用分组交流讨论、查阅资料、协作探究、归纳总结等方式，一步步引领学生深刻掌握算法与程序设计的精髓。
一、通过研究性学习，重构算法知识体系，要求真 研究性学习是学生在老师的指导下，结合真实生活，选定主题，然后搜集相关材料，对材料进行归纳、加工处理、分析、总结，得到相应结论的学习活动。在《算法与程序设计》教学中，根据教学内容，经过反复研究，确定了研究主题《搜索算法的应用研究》和《动态规划算法的解题应用研究》，并根据学生的自愿报名成立了两个研究小组。然后各小组根据自己研究的算法，重新整理相应的知识，对知识进行认知、归纳、总结。如《搜索算法的应用研究》小组，对搜索算法从以下几方面进行整理：
1、搜索算法的算法思想、分类；
2、深度优先搜索的算法思想与算法结构；
3、广度优先搜索的算法思想与算法结构；
4、深度优先搜索的优先策略；
5、广度优先搜索的优化策略；
6、深度优先搜索与广度优先搜索的异同。学生通过对搜索算法知识进行整理、分类、小结，加深了对搜索算法的理性理解与感性认知。
二、通过研究性学习，同学之间取长补短，要求全
每个学生都有所长，也有所短，研究性学习一个重要的特点就是：分工合作，共同讨论，共同提高，使参与的学生全面发展。我们的“搜索算法的应用研究”小组共有五个成员，根椐学生的特点、特长，对他们进行分工，每位学生研究上述其中一个问题，然后整个小组一起讨论，每位学生介绍自己的研究情况、研究成果，然后其他同学进行补充，发表自己的见解，这样每个同学都使自己的研究内容得到补充，同时也学习到了其他同学研究方面的知识，可以取长补短，共同提高，得到全面发展。
三、通过研究性学习，总结算法的应用规律，要求变
研究性学习的目的，是要求学生搜集与主题有关的资料，归纳整理相关资料，根据相关材料和知识，对主题进行研究，提出自己的观点或结论。我们在程序设计教学中进行算法专题研究也是这样，除要求学生归纳、整理专题算法知识外，还要总结出算法的应用规律、应用算法解题的步骤和算法的框架，能根据实际情况，随机应变。如在“动态规划的应用研究”中，学生总结出：动规划是解符合“无后效性原则”的最优问题的一种算法思想；用动态规划解题的一般步骤是：（1）判断题目是否为求最优问题，是否符合“无后效性原则”；（2）确定如果划分阶段；（3）确定每个阶段有几种状态；（4）找出状态转移方程和边界条件；（5）用算法语言实现算法过程。又如在“搜索算法的应用研究”中，研究小组的同学总结出：（1）广度优先搜索算法通常应用于解最少步数问题，而深度优先搜索算法则通常用来解所有路径问题；（2）深度优先搜索和广度优先搜索都是搜索算法，前者时间复杂度较大，而后者则占用的内存较大；（3）深度优先搜索在实现时用递归或用堆栈来实现，而广度优先搜索是用队列来实现，实现两种算法所用的数据结构不同；（4）深度优先搜索和广度优先搜索都是搜索算法，但两者的算法结构有较大的不同。学生通过自己对算法应用规律的总结，对算法的应用得到升华，进一步提高算法的应用能力和程序设计能力。
四、通过研究性学习，提高分析、归纳和综合能力，要求新
对算法的专题研究，不仅要对算法理论进行总结，算法应用的研究也是很重要的一方面，通过算法的解题应用，既提高了学生分析问题的能力，也加深了学生对算法的理解，提高了学生的算法应用能力，进而得到对学生创新能力的培养。另外，我们在算法研究过程中，要求学生透切理解算法内容，用算法语言准确描述算法，通过这种途径，进一步加深学生对算法的理解，同时也提高了学生的算法表达能力和归纳、总结的能力。
通过对算法进行专题研究，可以进一步加深学生对算法知识的理解，也可以提高学生的算法应用能力和程序设计能力。实践告诉我们：在整个研究过程中要注意以下几个问题：
1、课题不宜太大。研究课题的确定是研究性学习实施过程中重要的一环，课题选择恰当与否，直接关系到整个课题研究的成败。在程序设计教学中进行研究性学习活动，选题要遵循下面的原则：（1）课题的范围不宜太大；（2）有一定的应用价值；（3）结合学生的实际。一个好的开始是成功的一半，在研究性学习活动中也是如此。
2、要理论研究与算法应用相结合。对算法的专题研究，算法应用是重点。在算法知识归纳总结的基础上，重点应研究算法应用的一般规律、算法结构、应用算法解题的一般步骤等。不应该只是对算法理论的空洞论述，否则效果不好、意义也不大。
3、充分发挥教师的引导作用、学生的主体作用。在算法研究活动中，应充分发挥教师的引导和指导作用，既不能放任自由，也不能包办代替，要充分发挥学生的主体作用。当学生遇到问题和困难时，老师应当引导和启发学生，让学生去探索和研究，而不是直接告诉学生答案，老师始终是学生的引导者，学生是真正的参与者，使学生通过算法研究，加深对算法的理解，提高算法应用能力和程序设计能力。
职业学校的学生，不仅应具有独立接受知识的能力，更应具有独立探索知识的能力，由“研究性学习”补充原有的“接受式学习”，使学习方式更趋完善，只有当这两种学习方式结合起来，优势互补，才能使基础教育适应时代对人才培养的要求。
第五篇：VB程序设计试题及答案(一)
VB程序设计试题及答案
（一）一、单选题
1.VB6.0是一种面向 B 的编程环境。
(A)机器(B)对象
(C)过程(D)应用
2.要使FormI窗体的标题栏显示“欢迎使用VB”，以下 D 语句是正确的。
(A)Forml.Caption=“欢迎使用VB”
(B)Forml.Caption='欢迎使用VB'
(C)Forml.Caption=欢迎使用VB
(D)Forml.Caption=“欢迎使用VB”
3.若要使命令按钮不可操作，要对 A 属性进行设置。
(A)EnabIed(B)Visible
(C)Backcolor(D)Caption
4.如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
(A)Change(B)LostFocus
(C)KeyPress(D)GotFocus 5.下面 A 是合法的变量名。
(A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下关系表达式 中，其值为False的是 A。
(A)“ABC”>“AbC”(B)“女”>“男”
(C)“BASIC”=UCase(“basic)(D)”123“<”23“
7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A。
(A)x=1:y=1:z=1(B)x=1,y=1,z=
1(C)x=y=z=1(D)xyz=1
8.VB提供了结构化程序设计的三种基本结构，三种基本结构是 D。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D。
(A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l
(B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l
(C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l
(D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D。(A)Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行
(C)Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
11.以下 B 是正确的For…Next结构。
(A)For x=1 To Step 10(B)For x=3 To-3 Step-3
…
…
Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … …
Next x Next y
If i=10 Then GoTO re
12.如下数组声明语句，B 是正确的。
(A)Dim a[3,4] As Integer
(B)Dim a(3,4)As Integer
(C)Dim a(n,n)As Integer
(D)Dim a(3 4)As Integer
13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A。
(A)Dim a()As Integer(B)Dim a()As Integer
ReDim a(n)ReDim a(n)As String
(C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10)
ReDim Preserve a(4, 4)
14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是
C。
(A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%)
(C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%)
15.设有如下程序段：
Public Sub F1(n%)
…
n=3*n+…
End Sub
Private Sub Command1_Click()
Dim n%, m%
n=3
m=4
…
‘调用F1语句
…
End Sub
则在Command1_Click事件中有效的调用语句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5)
16.用来设置粗体字的属性是 C。
(A)FontItalic(B)FontName(C)FontBold(D)FontSize
17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D。
Dim x As Integer
Sub Timer1_Timer()
For i=1 to 10
x=x+Next i
End Sub
(A)1000(B)10000(C)10(D)以上都不对
18.在下列关于通用对话框的叙述中，错误的是 B。
(A)CommonDialog1.ShowFont显示“字体”对话框
(B)在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
(C)在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回
(D)
19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C。
(A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp
(D)没有规律
20.在下面关于顺序文件的描述中，正确的是 C。(A)顺序文件中每行的长度都是相同的。(B)可以通过编程对文件中的某行方便地进行修改
(C)数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D)文件的组织结构复杂 21.随机文件是因为 C。
(A)文件中的内容是通过随机数产生的(B)文件中的记录号通过随机数产生的(C)可对文件中的记录根据记录号随机地读/写(D)文件的每条记录的长度是随机的
22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。
(A)F=“c:t1.txt”
Open F For Input As #1(B)F=“c:t1.txt”
Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1
(D)Open c:t1.txt For Input As #2
23.坐标度量单位可由通过来 D 改变。
(A)Drawstyle属性(B)DrawWidth属性
(C)Scale方法(D)ScaleMode属性
24.指令“Circle(1000, 1000), 500, 8,-6,-3”将绘制 A。(A)画圆(B)椭圆(C)圆弧(D)扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。
①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源
(A)① ② ③ ④(B)② ③ ④ ①
(C)③ ① ② ④(D)① ③ ② ④
二、填空题
1．VB是建立在BASIC语言基础上的可见 化编程语言或编程环境。
2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0。
3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形、长整形、单精度、双精度 类型。4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0。
5．数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。
6．传地址方式是当过程被调用时，形参和实参共享 存储单元。7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的全局范围。
8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。
9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“1)
x(0)= 1
x(1)= 1
For i = 2 To n1)+ x(i1
Print x(i)，If(i + 1)Mod 5 = 0 Then Print
Next End Sub
输出结果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%)
Do While m< >n
Do While m> n: m=m-n: Loop
Do While m< n: n=n-m: Loop
Loop
f=m
End Function
Print f(24, 18)
End Sub 输出结果：6(3)
Public x as Integer
Private Sub Fomr_Click()
Dim x as Integer
x=10
print ＂x=＂;x
End Sub 输出结果: x=10 2.补充程序
(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。
Private Sub Command1_Click()
Dim a(), iMin%, n%, i%, j%, t%
a = Array(8, 6, 9, 3, 2, 7)
n = ubound(a)' 获得数组的下标上界
For i = 0 To n-1
For j = 0 To n-i-1
If a(j)>a(i)Then
t = a(j): a(j)= a(j + 1): a(j + 1)= t
End If
Next j
Next i
For i = 0 To n Print a(i);Next i End Sub
(2)用递归的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub
Public Function fac As Integer If n = 1 Then
fac = 1 Else
Fac=fac*n End If End Function
VB程序设计试题及答案
（三）一、单选题 1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行
2.若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
n=n*j n=n*j
Next j Next j
Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的对象是 C，它是应用程序的基石，是其他控件的容器。
(A)文本框(B)命令按钮(C)窗体
(D)标签
4.要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.数学表达式3≤x (A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函数不可能为下列 B 值。 (A)0(B)1(C)0.1234(D)0.0005 7.赋值语句:a=123+Mid(”123456“，3，2)执行后，a变量中的值是 D。 (A)”12334“(B)123(C)12334(D)157 8.对于语句If x=l Then y=l，下列说法正确的是 C。 (A)x=l和y=l均为赋值语句 (B)x=l和y=l均为关系表达式 (C)x=l为关系表达式，y=l为赋值语句 (D)x=l为赋值语句，y=l为关系表达式 9.下面程序段表示求两个数中的大数，D 不正确。 (A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C。 Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A B AB C ABC D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A。 Dim a(3,-2 to 2, 5) (A)120(B)75(C)60(D)13 13.以下程序的输出结果是 D。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a) a(i)=a(i)*a(i)Next i Print a(i) (A)49(B)0(C)不确定(D)程序出错 14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。 (A)Dim(B)Private(C)Public(D)Static 15.如下程序，运行的结果是 B。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click() a=2: b=4: c=6 Call p1(a, b) Print “a=”;a;“b=”;b;“c=”;c Call p2(a, b) Print “a=”;a;“b=”;b;“c=”;c End Sub (A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B。 (A)复选框未被选中(B)复选框被选中 (C)复选框内有灰色的勾(D)复选框操作有误 17.下面关于菜单的说法中，错误的是 B。 (A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件 (B)除了Click事件之外，菜单项还能响应其他的，如DbClick事件 (C)菜单项的快捷键不能任意设置 (D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B。(A)作为启动对象的Main子过程中能放在窗体模块中(B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 (C)没有启动窗体，程序不能执行(D)以上都不对 19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D。(A)发生DeActivate事件(B)发生LostFocus事件 (C)发生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D。 (A)文件中的数据按每行的长度从小到大排序好的(B)文件中的数据按某个关键数据项从大到小进行排序(C)文件中的数据按某个关键数据项从小到大进行排序(D)数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B。 (A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。 (A)文件的写语句(B)在窗体上显示的方法 (C)子程序名(D)以上均不是 23.以下的属性和方法中 C 可重定义坐标系。(A)Drawstyle属性(B)DrawWidth属性 (C)Scale方法(D)ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls (C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO数据控件的ConnectionString属性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable 二、填空题 1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的。 2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False。 5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。 6．由Array函数建立的数组，其变量类型必须是 variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有 Scroll 和Change。10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。 11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300,-150)，则X轴的正向向 右，Y轴的正向向 上。 12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π。 13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。14．VB中工程文件的扩展名为 vbg。 15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypress 事件获得输入键值的ASCII码。16．VB中对象的三要素是 属性、事件 和 方法。 三、编程应用题 1.程序阅读 (1)Private Sub Command1_Click() Dim s as String, i% s=＂abcd＂ For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 输出结果： d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print ”调用Swap1前 a和b的值为：“;a;b Call Swap1(a, b)Print ”调用Swap1后按传值方式 a和b的值为：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”调用Swap2后按传地址方式 a和b的值为：“;a;b End Sub 输出结果 调用Swap1前 a和b的值为：10 20 调用Swap1后按传值方式 a和b的值为：10 20 调用Swap2后按传地址方式 a和b的值为： 20 10(3)Private Sub Command1_Click() Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果: 22 484 2.补充程序 (1)以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。 Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & ”!= " Label3.Caption = s End Sub (2)以下程序的功能是：已知数组a，删除数组中某个元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a)If a(i)=9 Then For j=i+1 to UBound(a)a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂删除完成＂) Exit Sub End If Next i MsgBox(＂找不到要删除的元素＂)End Sub 读程序并填空 1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub End Function 4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。Command1_Click() X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100) Max=x(0) Min=x(0) For I=1 To 10 If x(I)>Max Then _____________ End if If x(I)>Min Then _____________ End if Next I Print “MAX=”;Max , “MIN=”;Min End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。 Private Sub Command1_Click() For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。 Private Sub form_Click() Do N=Val(InputBox(“请输入一个大于0的整数：”)) Loop Until N>0 Print Fact(N) End Sub Private Function Fact(M) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I Dim A(10,10) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10 For J=1 To 10 Print A(I, J);Next J __ __________ （2分）Next I End Sub 编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。 编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。
点击咨询 