下载文档原格式
Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。
A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
VB上机考试综合应用题选讲一、素数判断与计算、输出题，并把计算与存盘部分补充完整！Private Function isprime(a As Integer) As BooleanDim flag As Booleanflag = Trueb% = 2Do While b% <= Int(a / 2) And flagIf Int(a / b%) = a / b% Thenflag = FalseElseb% = b% + 1End IfLoopisprime = flagEnd Function+++++++以下黑体字部分是程序中没有的，需要自己被充+++++++ Private Sub C1_Click()Dim i As Integeri = 18000Doi = i - 1Loop Until isprime(i)Text1.Text = iEnd SubPrivate Sub C2_Click()Open "out5.txt" For Output As #1Print #1, Text1.TextClose #1End Sub二、判断口令题，关键是一些循环语句及选择结构的综合应用：Private Sub C1_Click()If Text1.Text = "123456" ThenText1.Text = "口令正确"Text1.PasswordChar = ""ElseText2.Text = Text2.Text - 1If Text2.Text > 0 ThenMsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"ElseMsgBox "3次输入错误，请退出"Text1.Enabled = FalseEnd IfEnd IfEnd Sub三、图片转换题:Private Sub Timer1_Timer()a = a + 1If a > 6 Thena = 1End IfSelect Case aCase 1P1.Picture = LoadPicture("黄灯.ico")Case 2, 3P1.Picture = LoadPicture("红灯.ico")Case 4, 5, 6P1.Picture = LoadPicture("绿灯.ico")If b Then Timer2.Enabled = bEnd SelectEnd SubPrivate Sub Timer2_Timer()If (a < 4) And (P2.Left > P1.Left And P2.Left < P1.Left + P1.Width) Or P2.Left <= 100 Then Timer2.Enabled = FalseElseP2.Move P2.Left - 10, P2.Top, P2.Width, P2.HeightEnd IfEnd Sub四、数据计算与行列式综合应用题：Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerDim Sum As IntegerSub ReadData1()Open App.Path & "\" & "datain1.txt" For Input As #1 For i = 1 To 20Input #1, Arr1(i)Next iClose #1End SubSub ReadData2()Open App.Path & "\" & "datain2.txt" For Input As #1 For i = 1 To 20Input #1, Arr2(i)Next iClose #1End SubOpen App.Path & "\" & Filename For Output As #1 Print #1, NumClose #1End SubPrivate Sub C1_Click()ReadData1ReadData2End SubPrivate Sub C2_Click()Dim arr3(20) As IntegerSum = 0For i = 1 To 20arr3(i) = Arr1(i) \ Arr2(i)Sum = Sum + arr3(i)NextPrint SumEnd SubPrivate Sub C3_Click()WriteData "dataout.txt", SumEnd Sub五、倒计数器Private Sub C1_Click(Index As Integer)Select Case IndexTimer1.Enabled = FalseCase 0Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub六、文本框的使用Private Sub C1_Click()Open App.Path & "\out7.txt" For Output As #2 Print #2, Text1.TextClose #2End SubPrivate Sub Form_Load()Do While Not EOF(1)Input #1, mystringText1.Text = Text1.Text + mystring LoopClose #1Text1.Text = "计算机等级考试" + Text1.Text End Sub七、求某类数的和等：Private Function fun(a As Integer) As Integer s% = 0For i% = 500 To 600If Int(i% / a) = i% / a Thens% = s% + i%End IfNextfun = s%End FunctionPrivate Sub C1_Click()If Op1.Value ThenText1 = fun(7)End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open "out7.txt" For Output As #1Print #1, Op1.Value, Op2.Value, Text1.TextClose #1End Sub八、文本框的使用Private Sub C1_Click()Open App.Path & "\in7.txt" For Input As #1Do While Not EOF(1)Input #1, mystringText1.Text = mystringLoopClose #1End SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()Print #2, Text1.TextClose #2End Sub九、文本框应用第二例：第一部分，窗体程序部分：Dim a(100) As IntegerPrivate Sub Cmd1_Click()Open App.Path & "\in.txt" For Input As #1 Text1.Text = ""For i = 1 To 100Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(1) Next iClose #1End SubPrivate Sub Cmd2_Click()Text1.Text = ""For i = 1 To 100If a(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & a(i) & Space(1)s = s + a(i)End IfNextputdata sEnd Sub第二部分，模块程序部分：（如没有，需要自行添加一个标准模块）Sub putdata(ByVal a As Integer)Dim sFile As StringsFile = "\out.txt"Open App.Path & sFile For Output As #1Print #1, a;Close #1End Sub十、分苹果题：Option ExplicitPrivate Sub Command1_Click(Index As Integer)If Index = 0 ThenIf Val(Label3(0).Caption) > 1 ThenLabel3(0).Caption = Label3(0).Caption - 1 ElseIf Val(Label3(0).Caption) = 1 ThenLabel3(0).Caption = Label3(0).Caption - 1 End IfCommand1(0).Enabled = FalseEnd IfElseIf Val(Label3(1).Caption) > 1 ThenCommand1(1).Enabled = TrueLabel3(1).Caption = Label3(1).Caption - 1 ElseIf Val(Label3(1).Caption) = 1 ThenLabel3(1).Caption = Label3(1).Caption - 1 End IfCommand1(1).Enabled = FalseEnd IfEnd IfIf Val(Label3(0).Caption) > Val(Label3(1).Caption) Then picSmile(0).Visible = TruepicCry(0).Visible = FalsepicCry(1).Visible = TruepicSmile(1).Visible = FalseElseIf Val(Label3(0).Caption) < Val(Label3(1).Caption) Then picCry(0).Visible = TruepicSmile(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).Visible = FalseElsepicSmile(0).Visible = TruepicCry(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).Visible = FalseEnd IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Index = 0 ThenLabel3(0).Caption = Label3(0).Caption + 1Command1(0).Enabled = TrueElse:Label3(1).Caption = Label3(1).Caption + 1Command1(1).Enabled = TrueEnd IfIf Val(Label3(0).Caption) > Val(Label3(1).Caption) Then picSmile(0).Visible = TruepicCry(0).Visible = FalsepicCry(1).Visible = TruepicSmile(1).Visible = FalseElseIf Val(Label3(0).Caption) < Val(Label3(1).Caption) Then picCry(0).Visible = TruepicSmile(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).Visible = FalseElsepicSmile(0).Visible = TruepicCry(0).Visible = FalsepicSmile(1).Visible = TruepicCry(1).Visible = FalseEnd IfEnd IfEnd SubPrivate Sub Form_Load()picSmile(0).Visible = TruepicSmile(1).Visible = TrueCommand1(0).Enabled = FalseCommand1(1).Enabled = FalseEnd Sub十一、简单综合题：Private Sub COMEXIT_Click() EndEnd SubPrivate Sub COMSTART_Click()Dim g As Single, N As Integer, S As Single myfile1 = App.Path & "\" & "grade.DAT" myfile2 = App.Path & "\" & "average.dat" Open myfile1 For Input As #1Open myfile2 For Output As #2Do While Not EOF(1)Input #1, gN = N + 1S = S + gLoopClose #1S = S / NWrite #2, SCloseCOMSTART.Caption = "完成" COMSTART.Enabled = FalseEnd Sub十二、文本加密题：Private Sub C1_Click()Dim strinfo As StringOpen "in7.txt" For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Text1.Text)strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1)) + 2) NextText1.Text = strchangeEnd SubPrivate Sub C3_Click()Open "out7.txt" For Output As 1Print #1, Text1.TextClose #1End Sub十三、数组综合应用题：本程序解答分二部分,一部分在窗体模块:Option ExplicitDim a(1 To 100)Dim i As IntegerDim n As IntegerDim f As IntegerDim s As LongPrivate Sub Cmd1_Click()Open App.Path & "\in.txt" For Input As #1For i = 1 To 100Input #1, na(i) = nText1.Text = Text1.Text & a(i) & " "Next iClose #1End SubPrivate Sub Cmd2_Click()For i = 1 To 100If a(i) <= 700 Then s = s + a(i)Next iCall putdata("out.txt", s)Text1.Text = sEnd Sub另一部分在标准模块:Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As StringsFile = "\" & t_FileNameOpen App.Path & sFile For Output As #1Print #1, t_StrClose #1End Sub十四、素数应用又一例：本程序分两部分,第一部分在窗体模块: Private Sub Cmd1_Click()Dim i As IntegerDim temp As Longtemp = 0If Opt2.Value ThenFor i = 200 To 400If isprime(i) Thentemp = temp + iEnd IfNextElseFor i = 100 To 200If isprime(i) Thentemp = temp + iEnd IfNextEnd IfText1.Text = tempEnd SubPrivate Sub Cmd2_Click()putdata "\out.txt", Text1.TextEnd Sub第二部分在标准模块:Option ExplicitSub putdata(t_FileName As String, T_Str As Variant) Dim sFile As StringsFile = "\" & t_FileNameOpen App.Path & sFile For Output As #1Print #1, T_StrClose #1End SubFunction isprime(t_I As Integer) As Boolean Dim J As Integerisprime = FalseFor J = 2 To t_I / 2If t_I Mod J = 0 Then Exit ForNext JIf J > t_I / 2 Then isprime = TrueEnd Function。
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------5分End Sub二、界面设计------10分Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分For i = 0 To 19------3分a(i) = Int(Rnd * 1001) ------3分sum = sum + a(i) ------3分Next i ------2分aver = sum / 20 ------3分Print aver ------2分End Sub三、界面设计------10分Dim n%------2分Private Sub Form_Load()End SubPrivate Sub Option1_Click()------2分Dim i% ------2分n = Val(Text1) ------3分m = 1 ------1分For i = 1 To n ------2分m = m * i -----2分Next i ------2分Text2 = m ------2分End SubPrivate Sub Option2_Click()------1分Dim i% ------2分m = 1 ------1分For i = 1 To n + 2 ------2分m = m * i ------2分Next i ------2分Text2 = m ------2分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
VB机试模拟试卷29(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．1. 在窗体上画1个水平滚动条(名称为HS1，最小值为0，最大值为80)和3个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。
程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。
程序的运行情况如图1—1所示(单击“左端”命令按钮)。
存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在窗体上画一个命令按钮，其名称为C1，标题为“清除”，编写适当的事件过程。
程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图1—2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
正确答案：按以下步骤操作：①启动Visual Basic，在窗体上画1个水平滚动条和3个命令按钮。
②按F4键激活属性窗口，在属性窗口中设置3个命令按钮的属性，见表1。
③编写3个命令按钮的事件过程；Private sub C1_Click( ) HS1.Value＝HS1.Min End Sub Private sub C2_Click( ) HS1.Value=HS1.Max/2 End Sub Private sub C3_Click( ) HS1.Value=HS1.Max End Sub2．①对象主要属性设置如表2所示。
②分析：按试题要求在窗体上画一个命令按钮，并将它的属性按表2的内容进行设置。
Caption属性用来定义对象的标题，将空字符串赋值给Caption，即可清除Caption中的内容。
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
VB机试模拟试卷38(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．新建一个工程。
在窗体上画一个文本框，名称为Text1。
设置用户输入的字母一律转换为大写表示，焦点保持在输入文本的最右端。
程序运行结果如图5所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl.vbp，窗体丈件名为ylcl.frm。
正确答案：(1)Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。
创建窗体Form1。
(2)在工具箱中选择文本框控件，在窗体中画出文本框。
在属性窗口中设置Text属性为空。
双击文本框弹出代码编写窗口，添加如下代码：Private Sub Text1_Change( ) Textl.Text=LCase(Text1.Text) Textl.SelStart=Len(Text1.Text) End Sub (3)按F5键运行程序。
如图5所示。
(4)执行“文件”→“保存工程”命令，将工程文件命名为ylcl.vbp，窗体文件命名为ylcl.frm。
解析：(1)第1小题中要使用字符转换函数LCase，其作用是将所有大写字符转换为小写。
SelStart属性用来返回或者设置所选择的文本的起始点，可用来处理焦点。
2．新建一个工程，在窗体中创建一个标签，名字是Label1。
要求实现的功能是：单击窗体后，在标签控件中显示三号字体的字符串“为人民服务”。
程序运行结果如图6所示。
程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。
正确答案：(1) Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。
创建窗体Form1。
(2)在工具箱中选择标签控件，在窗体中画出一个标签。
在其属性窗口中，将Visible属性改为False，Caption属性设置为“为人民服务”，双击Font属性，将字体大小设置为三号字。
高中vb编程试题及答案高中VB编程试题及答案一、选择题（每题2分，共10分）1. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. DimD. Const答案：B2. 以下哪个选项不是VB中的控件？A. TextBoxB. LabelC. ButtonD. Panel答案：D3. VB中，以下哪个函数用于返回字符串的长度？A. Len()B. Mid()C. Left()D. Right()答案：A4. 在VB中，以下哪个语句用于结束一个循环？A. EndB. ExitC. LoopD. Next答案：D5. VB中，以下哪个选项表示十六进制数？A. &HB. &OC. &BD. &D答案：A二、填空题（每题2分，共10分）1. 在VB中，使用_________关键字可以定义一个变量。
答案：Dim2. VB中的_________控件用于显示文本，但不允许用户编辑。
答案：Label3. 使用_________函数可以将字符串转换为大写。
答案：UCase4. 在VB中，_________语句用于在数组中声明多个元素。
答案：ReDim5. VB中，_________事件用于响应按钮点击。
答案：Click三、简答题（每题5分，共15分）1. 描述VB中如何创建一个简单的窗体应用程序。
答案：在VB中创建一个简单的窗体应用程序，首先需要打开VB集成开发环境（IDE），然后选择新建项目，选择窗体应用程序模板。
接着，使用工具箱中的控件（如按钮、文本框等）在窗体上进行拖放，设置控件属性，编写相应的事件处理代码。
最后，通过编译和运行按钮测试应用程序。
2. 解释VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户的输入、系统消息等）触发。
在VB中，事件驱动编程意味着程序的执行依赖于用户的操作，如点击按钮、输入文本等，这些操作会触发相应的事件处理程序，从而执行特定的代码。
国家二级VB机试（综合应用题）模拟试卷9(题后含答案及解析) 题型有：1.1．以下数列：1，1，2，3，5，8，13，21…的规律是从第3个数开始，每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5．vbp。
窗体中已经给出了所有控件：如图所示。
请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值(提示：因计算结果较大，应使用长整型变量)。
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。
最后把修改后的文件按原文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Command1_Click( ) Dim a( )As Long Dim i As Integer Dim n As Integer ‘Opl．Count是单选按钮数目，这里用的是控件数组For i＝0 To Op1．Count－1 ‘判断哪一项被选择，把它后面的数值赋给n，确定n值If Opl(i)．Value＝True Then n＝Val(Opl(i)．Caption) Exit For End If Next ReDim a(n)’重新申请空间，这里是动态申请a(1)＝1 a(2)＝1’数列第一项、第二项值确定For i＝3 To n a(i)＝a(i－1)＋a(i－2)’后一项值是前两项值之和Next Text1．Text＝a(n) End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2．在考生文件夹下有一个工程文件sjt5．vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码，请完成以下工作。
综合应用题1、编写程序，求圆柱体的底面积、侧面积和体积。
运行界面如图所示。
Private Sub Command1_Click()Const pi = 3.14Command1Dim r As SingleDim h As Singler = Val(Text2.Text)h = Val(Text1.Text)Text3.Text = pi * r ^ 2Text4.Text = 2 * pi * r * hText5.Text = Val(Text3.Text) * Val(Text1.Text)End Sub2、用条件语句实现：从文本框（Text1）输入一个数，单击“判断”按钮（Command1）判断它能否同时被3、5、7整除，若能整除，则用消息框（Msgbox函数）显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click()a = Val(Text1.Text)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub3、使用循环控制结构在窗体上打印出下三角形式的九九乘法表。
（界面如图所示）Command1Private Sub Command1_Click()Dim a(9, 9) As Integer, i As Integer, j As IntegerFor i = 1 To 9For j = 1 To ia(i, j) = i * jPrint i & "×" & j & "=" & a(i, j) & Space(2);Next jPrintNext iEnd Sub4、编写程序，对输入的学生成绩给出五级评分。
要求：学生成绩由文本框（Text1）输入，结果显示在标签（Label1）中。
评分标准如下：优90≤成绩≤100良80≤成绩<90中70≤成绩<80及格 60≤成绩<70不及格 0≤成绩<60Private Sub Command1_Click()grade = Val(Text1.Text)Select Case gradeCase Is > 100MsgBox "请输入正确分数", , "错误"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)Case Is >= 90Label1.Caption = "优"Case Is >= 80Label1.Caption = "良"Case Is >= 70Label1.Caption = "中"Case Is >= 60Label1.Caption = "及格"Case Is >= 0Label1.Caption = "不及格"End SelectText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub5、编写程序求∑∑==+10015012k k k k 的值，要求结果显示在窗体上。
Private Sub Command1_Click()Dim i As Integer, sum As LongFor i = 1 To 100sum = sum + iNext iFor i = 1 To 50sum = sum + i ^ 2Next iPrint sumEnd Sub中，再将所有对称位置的两个数据对调后显示在另一个文本框（Text2）中（第1个数与第15个数对调，第2个数与第14个数对调，……，第7个数与第9个数对调）。
Option Base 1Private Sub Command1_Click()Dim a(15) As IntegerFor i = 1 To 15a(i) = Int(Rnd * 100 + 1)Text1.Text = Text1.Text & “” & a(i)For i = 1 To 7t = a(i)a(i) = a(16 - i)a(16 - i) = tNext iFor i = 1 To 15Text2.Text = Text2.Text & “” & a(i)Next iEnd Sub7、随机生成20个两位正整数显示在一个文本框（Text1）中，并求出它们的平均值显示在另一个文本框（Text2）中。
Option Base 1Private Sub Command1_Click()Dim a(20) As IntegerFor i = 1 To 20a(i) = Int(Rnd * 90 + 10)Text1.Text = Text1.Text & " " & a(i)Sum = Sum + a(i)Next iText2 = Str(Sum / 20)End Sub将它们逆序显示在另一个文本框（Text2）中。
Option Base 1Private Sub Command1_Click()Dim a(50) As IntegerFor i = 1 To 50a(i) = Int(Rnd * 900 + 100)Text1.Text = Text1.Text & " " & a(i)Next iFor i = 50 To 1 Step -1Text2.Text = Text2.Text & " " & a(i)Next iEnd Sub9、用InputBox函数输入10个数到数组A中，输入后将这10个数显示在一个文本框（Text1）中，并计算其中所有正数的和，将结果显示在另一个文本框（Text2）中。
Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Val(InputBox(" 输入数据"))Text1.Text = Text1.Text & " " & a(i)If a(i) > 0 Then Sum = Sum + a(i)Next iText2 = SumEnd Sub10、生成100个[0,100]之间的随机整数存于数组A中，并将它们显示在一个文本框（Text1）中，在数组A中查找指定的元素Number。
要求：Number用InputBox函数输入，查找结果显示在窗体上。
Option Base 1Private Sub Command1_Click()Dim a(100) As IntegerFor i = 1 To 100a(i) = Int(Rnd * 101)Text1.Text = Text1.Text & " " & a(i)Next iNumber = Val(InputBox("输入数据"))For i = 1 To 100If a(i) = Number ThenPrint ik = k + 1End IfNext iIf k = 0 Then MsgBox "不存在所查找的数"End Sub11、编程求由一位随机整数构成的4×5二维数组A的每一列元素的和。
运行界面如图所示。
Option Base 1Private Sub Command1_Click()Dim a(4, 5) As IntegerFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 9 + 1)Text1.Text = Text1.Text & " " & a(i, j)Next jText1.Text = Text1.Text & vbCrLfNext iFor j = 1 To 5Sum = 0For i = 1 To 4Sum = Sum + a(i, j)Next iText2.Text = Text2.Text & " " & SumNext jEnd Sub12、单击命令按钮command1时，生成包含[1,9]之间随机整数的两个5*5矩阵，分别显示在图片框Picture1和Picture2中，并求两个矩阵之和显示在图片框Picture3中。
Option Base 1Dim a(5, 5) As Integer, b(5, 5) As Integer, c(5, 5) As IntegerPrivate Sub Command1_Click()Picture3.ClsRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 9 + 1)b(i, j) = Int(Rnd * 9 + 1)Picture1.Print Format(a(i, j), "!@@") & Space(2);Picture2.Print Format(b(i, j), "!@@") & Space(2);Next jPicture1.PrintPicture2.PrintNext iFor i = 1 To 5For j = 1 To 5c(i, j) = a(i, j) + b(i, j)Picture3.Print Format(c(i, j), "!@@") & Space(2);Next jPicture3.PrintNext iEnd Sub13、编写程序，在窗体上打印出如图所示的杨辉三角形。
要求：行数由用户指定。
Option Base 1Dim a() As DoublePrivate Sub Form_Click()n = Val(InputBox("输入打印行数"))Form1.ClsReDim a(n, n)a(1, 1) = 1a(2, 1) = 1a(2, 2) = 1PrintPrintPrintFor i = 1 To nFor j = 1 To iIf j = 1 Or j = i Thena(i, j) = 1Elsea(i, j) = a(i - 1, j - 1) + a(i - 1, j)End IfPrint a(i, j);Next jPrintNext iEnd Sub14、随机生成一个由两位正整数构成的5行5列矩阵显示在窗体上，并求出该矩阵中两条对角线元素之和。
