《VB程序设计》期末考试试卷(A)附答案
《VB程序设计》期终考查试卷(A卷)及答案
《VB 程序设计》期终考查试卷（A 卷） 适用专业： 题号 一 二 三 四 总分 总分人 分数 一、填空题（每空1分，共30分） 1、Visual Basic 是一种面向 的程序设计语言。
2、结构化的程序设计思想包括3种基本结构，分别是 、 、 。
3、在Visual Basic 6.0中，窗体和控件都是 ，都有自己的属性、方法和事件。
4、使用窗体的Print 方法输出数据时， 号表示紧凑格式输出， 号表示松散格式输出。
5、语句Print 5/4*6\5 mod 2的输出结果是 。
6、描述“X 是小于100的非负整数”的Visual Basic 表达式是 。
7、在自定义数据类型中的元素类型可以是字符串，但必须是 字符串。
8、在VB 中，参数的传递方式有 和 两种，使用它们时应分别在形参前加上关键字 和 。
9、变量的作用域分为 、 、 等3类。
10、用户自定义过程分为 、 ，两者最根本的区别在于 。
11、VB 将代码存储在3种不同的模块中： 、 、 。
扩展名分别为： 、 、 。
12、PictureBox 控件可通过设置其 属性为ture ，可使其自动调整大小；而image 控件通过设置其 属性为ture ，可使其加载的图片能自动调整大小以适应image 。
13、计时器事件之间的时间间隔通过___________属性设置。
班级 学号 姓名 - -------------------------------------装--------------------------------------------订---------------------------------------线------------------------------------- 阅卷人二、选择题（每小题2分，共30分）1、Visual Basic是一种面向对象的可视化程序设计语言，其中（）不是面向对象系统所包含的3个要素。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( 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 Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
2020年Vb程序设计期末考试题库(附答案)
2020年Vb程序设计期末考试题库(附答案)目录习题一 (2)1、选择题 (2)2、判断题 (3)3、程序设计题 (3)习题二 (4)1、单选题 (4)2.判断题 (5)3.程序设计题 (5)习题三 (6)1.选择题 (6)2.程序阅读题（写出下列程序的运行结果） (6)3.程序填空题 (8)4．程序设计题 (9)习题四 (9)1.选择题 (9)2.程序阅读题（写出下列程序的运行结果） (10)3.程序填空题 (11)4.程序设计题 (12)习题五 (13)1.选择题 (13)2.程序阅读题（写出下列程序的运行结果） (13)3.程序填空题 (14)4.程序设计题 (15)习题六 (15)1.选择题 (15)2.程序填空题 (17)3.程序设计题 (18)习题七 (20)1.选择题 (20)2.程序填空题 (21)3.程序设计题 (21)习题八 (22)1.判断题 (22)2.单选题 (22)3.填空题 (24)4.程序填空 (24)五、程序设计题 (26)习题九 (26)1.选择题： (26)2.填空题 (27)3.程序阅读题 (28)3.编程题： (29)习题十 (29)1.选择题 (29)2.程序设计题 (31)习题参考答案 (33)习题一1、选择题1．工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、方法C、事件D、函数3．在设计模式双击窗体将显示的窗口是A、工程窗口B、工具箱C、代码窗口D、属性窗口4．VB中运行程序的快捷键是A、F2B、F5C、Alt+F3D、F85．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、RightA、.exeB、.basC、.frxD、frm7．设置窗体的字体用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic 9．下列选项中不属于事件的是。
大学_vb期末考试试题
VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是和（2）。
2、在VB中,最主要的两种对象是 (3）和（4）。
3、工程是构成应用程序文件的（5) 。
4、方法是VB提供的一种（6) ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___（8）____.7、可用窗体的___（9）_ 方法在窗体中显示文字.8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数，则使用（14）作为消息框的标题。
12、设x＝34。
58，语句Print Format（x,“000。
0”）的输出结果是（15） .13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句（20）。
二、选择题1、菜单控件只包括一个事件，即 (1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示）的Max属性所设置的是（2) .A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select ＊ Form student 中的＊表示 (3）。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 (4） .A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5) 。
vb期末考试试题及详细答案
vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
vb期末考试编程试题及答案
vb期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。
答案：类是对象的蓝图，它定义了对象的结构和行为。
对象是类的实例，是类的具体实现。
一个类可以创建多个对象，每个对象具有自己的状态和行为。
2. 描述如何使用VB中的事件。
答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。
事件通常与事件处理器（也称为事件处理程序）一起使用。
事件处理器是响应事件的代码块。
要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。
3. 解释VB中的继承和多态性。
答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。
这使得代码重用成为可能。
多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。
在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。
三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
******学院2009-2010学年第二学期《VB程序设计》期末考试试卷（A）附答案一、选择题（2分/题，共60分）（1）要设置窗体上各控件的属性，可以在＿＿＿中进行。
A“窗体布局”窗口B“工程资源管理器”窗口C“属性”窗口D“对象”窗口（2）下面程序段＿＿＿能够正确实现目的：如果x<y,则a=15,否则a=-15。
AIfx<yThena=15a=-15PrintaBifx<yThena=15:Printaa=-15:PrintaCIfx<yThena=15:PrintaElseA=-15:PrintaEndifDIfx<yThena=15a=-15PrintaEndif（3）VB窗体设计器的主要功能是＿＿＿。
A建立用户界面B编写源程序代码C画图D显示文字（4）文本框控件的值是＿＿＿属性。
ACaptionBValueCIndexDText（5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。
A工具箱B“工程”窗口C“代码”窗口D“属性”窗口（6）下列程序段的执行结果是＿＿＿。
X=int(Rnd()+4)SelectcasexCase5Print“优秀”Case4Print“良好”Case3Print”通过”CaseelsePrint”不通过”EndselectA优秀B良好C通过D不通过（7）下列哪个不是窗体的属性＿＿＿。
ACaptionBTextCControlBoxDBorderStyle（8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。
ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount（9）窗体BorderStyle属性的功能是＿＿＿。
A设置窗体的边框大小B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等C决定是否显示窗体的控制菜单图标与状态控制按钮D决定窗体的最大化或最小化按钮是否有效（10）下列可作为VB的变量名的是＿＿＿。
Ac*DelBAlphaC4aDprint（11）要把一个命令按钮设置成无效，应设置其哪一属性值＿＿。
A）VisibleB）EnabledC）DefaultD）Cancel（12）下列不能作为VB所允许的常量是＿＿。
A&O148B“china”C3E2D&H2a（13）＿＿＿是指控件本身所具有的、反映该控件功能的内部函数或过程。
A方法B事件C属性D控件（14）表达式33Mod17\3*2的值是＿＿＿。
A10B1C2D3（15）表达式int(123.4567*100+0.5)/100的值是＿＿＿。
A123.47B123.45C123.461D123（16）不属于VB6集成开发环境工作状态的是＿＿＿。
A“设计”状态B编写代码状态C“运行状态”D“中断状态”（17）工程文件的扩展名是＿＿＿。
AfrmBvbpCbasDfrx（18）提供控件的窗口是＿＿＿。
A“对象”窗口B“立即”窗口C工具箱D工具栏（19）变量x=1234.5678,要保留两位小数四舍五入输出，如输出结果为1235.57，正确的方法是＿＿＿。
APrintFormat(x,”#####.##”)BPrintFormat(”#####.##”,x) CPrintFormat(x,”00000.00”)DPrintFormat(”00000.00”,x)（20）要显示一个对话框，提示用户输入一个数据，并且对话框中要显示的提示信息位“请输入一个整数”，正确的是＿＿＿。
AWord=MsgBox(“请输入一个整数：”，”输入”)BWord=MsgBox(”输入”，“请输入一个整数：”)CWord=InputBox(“请输入一个整数：”，”输入”)DWord=InputgBox(”输入”，“请输入一个整数：”)（21）用于字符串连接的运算符是＿＿＿。
A&B+CAndDA、B都可以（22）以下拥有Print方法的对象是＿＿＿。
A窗体B图片框C打印机D以上都有（23）设a=2,b=3,c=4,d=5,下列表达式的值是＿＿＿。
NOTa<=cOR4*c=b^2ANDb<>a+cA-1B1CTrueDFalse（24）代码Print“test”&”=”,3*6显示的结果为＿＿＿。
Atest=18Btest=18Ctest=18Dtest=18（25）在VB中，通过改变列表框＿＿＿属性的值，可以为列表框添加项目。
AListB（名称）CCaptionDText（26）在VB中，复选框（Check）的Value值有3种，分别是＿＿＿。
A-1，0，1B0,1,2C1，2，3DTrue,False,0（27）下列程序段的执行结果是＿＿＿。
X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-xA-33B5-8C3-3D25-25(28)要把Print方法输出的文字显示为粗体字，应该设置属性＿＿＿。
AFontBoldBFontNameCFontSizeDFontItalic（29）设a=2,b=3,c=4,d=5,下列表达式的值是＿＿＿。
3>2*bORa=cANDb<>a+cA1BTrueCFalseD-1（30））如果要在代码窗口内将表单Form1的Caption属性设置为“时钟”，正确的书写形式是＿＿＿。
AForm.Caption“时钟”BForm.Caption=“时钟”C.Caption=“时钟”DForm.Caption(“时钟”)二、判断题（1分/题，共10分，对用T表示，错用F表示）（）1、设置属性的语句格式为：“对象名．属性名＝属性值”。
（）2、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。
（）3、ＶＢ的赋值语句只能给变量赋值。
（）4、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。
（）5、窗体大小只能通过鼠标拖动窗体边框来设置。
（）6、VB的Double类型数据，可以精确表示其数值范围内的所有实数。
（）7、若用户在键盘上按下一个键，则会产生一个Click事件。
（）8、罗马数制是进位计数制。
（）9、事件过程可以由用户事件触发执行，也可以由其他过程所调用。
（）10、DoWhile条件.....Loop和DOUntilNot条件.....Loop两条循环语句，实现循环控制是等效的。
三、读程序并填空题（每空2分，共10分）WORD格式j1=10j2=30Ifj1<j2ThenPrintj2;j1运行上程序段后，现实的结果是_____,______A10B30C1030D30101235.58下列程序段的执行结果是______,_______X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-x1235.59PrivateSubForm_Click()DimAasintegerA=200IfA<＝100ThenA=A*10IfA>1000ThenA=A－10ElseA=A＋10EndifElseA=A/10IfA=10ThenA=A－10ElseA=A＋10EndifEndifMsgboxStr(A)EndSub运行程序，单击窗体Form1，消息框中显示: 1235.60FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)NextiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。
1235.61PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+4ExitForElsek=k+1EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，c,k的值分别是：四、编写程序（每题10分，共20分）1.购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上者，按9.5折优惠；（2）在300元以上者，按9折优惠；（3）400元以上者，按8折优惠；（4）600元以上者按7折优惠。
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。
程序运行结果如图1所示。
图1程序运行效果2.实现课对所选择课程进行统计现实，下如图2所示：图2程序运行效果答案一、选择题（每题2分，共60分）12345678910CCADCBBBBB11121314151617181920BABBAABCAB21222324252627282930DADADBAABC二、判断题（1分/题，共10分）12345678910TTTFFTFFTT三、读程序并填空题（每空1分，共10分）1235.6230101235.63-331235.64301235.65810121235.6654四、编写程序（每题10分，共20分）1235.67PrivateSubCommand1_Click()（1分）DimxAsSingle,yAsSinglex=Val(Text1.Text)（1分）Ifx<200Then（2分）y=xElseIfx<300Then（2分）y=9.5*xElseIfx<400Then（2分）y=0.9*xElseIfx<600Then（2分）y=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub1235.68DimiAsIntegerPrivateSubCheck1_Click()（2分）IfCheck1.Value=1Theni=i+1EndIfIfCheck1.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck2_Click()（2分）IfCheck2.Value=1Theni=i+1EndIfIfCheck2.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck3_Click()（2分）IfCheck3.Value=1Theni=i+1EndIfIfCheck3.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck4_Click()（2分）IfCheck4.Value=1Theni=i+1EndIfIfCheck4.Value=FalseTheni=i-1EndIfEndSubPrivateSubCommand1_Click()（2分）Label1.Caption="您一共选择了"&i&"门课程" EndSubPrivateSubForm_Load()Label1.Caption=""EndSub。