VB程序设计在线考试答案
VB程序设计编程考试题及答案
V B 程序设计编程考试题及答案1. 输入3 个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3 n = Val(InputBox(" 输入第" & i & " 个数"))If n > max Then max = nEnd IfNextPrint " 三个数中最大的数是" ; maxEnd Sub2. 有一元二次方程：aX2+bX+c=0,依次输入a, b, c,判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 = " 方程有根"ElseLabel4 = " 方程无根"End IfEnd Sub3. 输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜！成绩通过！若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > =60 ThenVal (MsgBox(" 恭喜！成绩通过！"))ElseVal (MsgBox(" 抱歉！成绩没有通过！"))End IfEnd Sub4. 输入一年份，判断它是否为闰年，并显示有关信息。
除但不判断闰年的条件是：年份能被 4 整能被100整除，或者能被400 整除）Private Sub Command1_Click（）Dim y%y = InputBox（" 请输入年份"）If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenVal （MsgBox（" 闰年！"））ElseVal （MsgBox（" 平年！"））End IfEnd Sub5. 输入学生的百分制成绩，转换输出为五级制成绩，90〜100分转换为优秀，80〜89转换为良好，70〜79转换为中等，60〜69转换为及格，0〜60转换为不及格。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB考试试卷及答案一
VB考试试卷及答案一第一篇：VB考试试卷及答案一Visual Basic程序设计基础试题一（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。
【程序】Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e试题二（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。
VB程序设计在线考试答案精编
V B程序设计在线考试答案精编Document number：WTT-LKK-GBB-08921-EIGG-22986《VB程序设计》课程综合复习资料一、单项选择1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。
A．BACKCOLOR B．BORDERSTYLE C．FORECOLORD．BACKSTYLE2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE3．下列关于属性设置的叙述错误的是：（ A）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值4．下列说法正确的是（C ）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码5．下列关于窗体上控件的基本操作错误的是：（A ）A．下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件6．下列关于设置控件属性的叙述正确的是（C ）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ）A．0 B．-1 C．TRUE D．FALSE8．下列关于控件画法的叙述错误的是（D ）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件10．VB应用程序的运行模式是（C ）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式11．可视化编程的最大优点是（ C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（ A）事件来完成图形的重画工作。
vb试题及答案选择
vb试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
VB程序设计期末试卷及答案
VB程序设计期末试卷及答案选择题1. Visual Basic中的窗体⽂件的扩展名是A、.regB、.frmC、.basD、.vbp2. Visual Basic中的模块⽂件的扩展名是A、.regB、.frmC、.basD、.vbp3. Visual Basic中的⼯程⽂件的扩展名是A、.regB、.frmC、.basD、.vbp4. ⼀个对象可以执⾏的动作和可被对象识别的动作分别称为A、事件、⽅法B、⽅法、事件C、属性、⽅法D、过程、事件5要使窗体在运⾏时不可改变窗体的⼤⼩和没有最⼤化和最⼩化按钮，要对下列属性进⾏设置。
A．MaxButton B．Width C．MinButtonD．BorderStyle6 在⽤菜单编辑器设计菜单时，必需输⼊的项有＿＿＿＿。
A．快捷键B．索引C．标题D．名称8 ⽂件号最⼤可取的值为A 255 B511 C512 D2569 以下能判断是否到达⽂件尾的函数是＿＿＿＿A BOFB LOC C LOFD EOF10 Visual basic 常见的颜⾊设置中，表⽰红⾊的是A vbblueB vbredC vbblackD vbcyan11当使⽤line⽅法画直线后，当前坐标在A （0,0）B 直线起点C 直线终点D容器的中⼼12语句circle（500,500），300,8，-6，-3将绘制A圆 B 椭圆 C 圆弧D扇形13坐标度量单位可以通过来改变A DrawstyleB DrawwidthC ScaleD Scalemode14对象的边框类型由设置A DrawstyleB DrawwidthC BorderstyleD Scalemode 15以下的属性和⽅法中可重新定义坐标系A DrawstyleB DrawwidthC ScaleD Scalemode16执⾏语句line（1200,1200）——step(1000,500),B后，CurrentX=A 2200B 1200C 1000D 170017 在下列通⽤对话框的叙述中，错误的是A Commondialogl.showfont显⽰字体对话框B 在打开或另存为对话框中，⽤户选择的⽂件名可以通过Filetitle 属性返回C在打开或另存为对话框中，⽤户选择的⽂件名及其路径可以经Filetitle属性返回D 通过对话框可以⽤来制作和显⽰帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。
VB程序设计试题及答案
VB程序设计期末模拟试题及答案双击自动滚屏发布者：汤中艮发布时间：2009-12-7 阅读：1639次《VB》期末复习题及答案综合复习题一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
《vb程序设计》期末复习题及答案
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB程序设计》课程综合复习资料一、单项选择1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。
A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE3．下列关于属性设置的叙述错误的是：（A）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值4．下列说法正确的是（C ）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码5．下列关于窗体上控件的基本操作错误的是：（A ）A．下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件6．下列关于设置控件属性的叙述正确的是（C ）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ）A．0 B．-1 C．TRUE D．FALSE8．下列关于控件画法的叙述错误的是（D ）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件10．VB应用程序的运行模式是（C ）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式11．可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得12、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（A）事件来完成图形的重画工作。
A．Paint B．Load C．Click D．Active13、滚动条控件的属性中，表示取值范围最大值的属性是（A）A．Max B．LargeChange C．Min D．Value14、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（A ）A．DragDrop B．MouseDown C．MouseUp D．MouseMove15、命令按钮的标题文字由（B ）属性来设置。
A．Text B．Caption C．Name D．(名称)16、下面程序运行后输出的结果是（B ）。
Chr1="CCCCHIINAAAA"Chr2=Left(Chr1,3)PRINT Chr2ENDA．CHI B．CCC C．INA D．AAA17、以下语句的输出结果是（C ）。
Print Format$(32548.5, "###,###.##")A．032,548,50 B．325,485.00 C．32548.5 D．32,548,5018、若要设置文本的显示颜色，则可用（B ）属性来实现。
A．BackColor B．Forecolor C．FillColor D．Backstyle19、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（B ）属性为Ture 来实现。
A．Enabled B．Value C．Default D．Cancel20、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（B）。
A．4 B．5 C．6 D．7二、简答题1．在程序设计中为什么尽量不用GoTo语句？2．框架的作用是什么？3．如何为一个菜单项设置热键和快捷键？4．程序出错的类型有哪几种？5．在设计状态，若用户想打开代码窗口，应怎样操作？代码窗口主要包括哪几部分？6．表间的关系类型有哪几种？二、简答题1．答案要点：主要是为了结构化。
2．答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：四种：语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：对象列表、事件列表、代码窗口。
6．答案要点：表间的关系类型有三种：一对一、一对多和多对多。
三、编程题1．编程求任意两个正整数（利用两个文本框输入）的最大公约数，并利用标签输出结果。
Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = "输入数据有错！"Elser = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel2.Caption = "最大公约数为：" & nEnd IfEnd Sub2．编程实现对n个整数按由小到大的顺序排序。
Private Sub sort(arraya() As Integer, n As Integer)Dim p As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To n - 1p = iFor j = i + 1 To nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = temp Next iEnd Sub3．请编程实现每30秒在窗体上显示一次当前的时间。
Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd Sub《VB程序设计》课程综合复习资料参考答案二、简答题1．答案要点：主要是为了结构化。
2．答案要点：框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面。
3．答案要点：为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择。
4．答案要点：四种：语法错误、编译错误、运行错误和逻辑错误。
5．答案要点：在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：对象列表、事件列表、代码窗口。
6．答案要点：表间的关系类型有三种：一对一、一对多和多对多。
三、编程题1．参考程序如下：Private Sub Command1_Click()Dim m, n, r As Integerm = Val ( Text1.Text )n = Val ( Text2.Text )If m < 0 Or n < 0 ThenLabel2.Caption = "输入数据有错！"Elser = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopLabel2.Caption = "最大公约数为：" & nEnd IfEnd Sub2．参考程序如下：Private Sub sort(arraya() As Integer, n As Integer)Dim p As Integer, i As Integer, j As Integer, temp As IntegerFor i = 1 To n - 1p = iFor j = i + 1 To nIf arraya(p) > arraya(j) Then p = jNext jIf p <> i Then temp = arraya(i) : arraya(i) = arraya(p) : arraya(p) = tempNext iEnd Sub3．参考程序如下：Private Sub Form_Load()Timer1.Interval = 30000End SubPrivate Sub Timer1_Timer()Print TimeEnd Sub新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。
form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量Dim a(9) As IntegerDim i As IntegerDim r As IntegerDim t As Integer '产生随机数RandomizeFor i = 0 To 9a(i) = CInt(Rnd() * 100)Next i '排序For i = 0 To 8For r = i + 1 To 9If a(i) > a(r) Thent = a(i)a(i) = a(r)a(r) = tEnd IfNext rNext i '显示数据Label1.Caption = ""For i = 0 To 9Label1.Caption = Label1.Caption + "第" + CStr(i + 1) + "个随机数=" + CStr(a(i)) + vbCrLfNext iEnd Sub对单选按钮进行分组，每一组单选按钮都是独立的，对一组单选按钮进行操作不会影响其他组单选.按钮的选择；另外可对窗体上现有控件进行分组，提供视觉上的区分和总体的激活或屏蔽特性。