VB上机
Vb上机实验答案
第一题1.制作如图所示窗体界面。
（用真实的姓名、班级及学号）2.使时间每隔1秒刷新一次3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值4.在列表框中输入20、22、24、26、28Private Sub Command1_Click()Dim a(1 To 5) As IntegerFor i = 1 To 5a(i) = InputBox("please input a number")Next immax = a(1)For i = 1 To 5If a(i) > mmax Thenmmax = a(i)End IfNext iMsgBox mmaxEnd SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd Sub第二题1.两个文本框里输入两个数字从而确定一个范围。
2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。
bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Text1.Textb = Text2.Texts = 0For i = a To bIf a Mod 3 = 0 Or b Mod 5 = 0 ThenLabel3.Caption = Label3.Caption & i & ","s = s + i * iEnd IfNext iLabel3.Caption = sEnd SubPrivate Sub Timer1_Timer()If Label3.BackColor = vbRed ThenLabel3.BackColor = vbBlueElseLabel3.BackColor = vbRedEnd IfEnd Sub第三题1、单击按钮，在文本框中显示1到终值的所有整数的平方和2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数Private Sub Command1_Click()Dim a As Integera = Text1.Texts = oFor i = 1 To as = s + i * iNext iText2.Text = sEnd SubPrivate Sub Command2_Click()Dim a As Integera = Text1.TextFor i = 1 To aList1.AddItem iNext iEnd Sub第四题1、“大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止颜色变化2、在文本框中写入任意数字，单击“生成列表”按钮，将1到文本框中输入数字之间所有能被3整除得数在列表框中显示Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim a As Integera = Text1.TextFor i = 1 To aIf i Mod 3 = 0 ThenList1.AddItem iEnd IfNext iEnd SubPrivate Sub Timer1_Timer()If Label1.ForeColor = vbRed ThenLabel1.ForeColor = vbBlueElseIf Label1.ForeColor = vbBlue ThenLabel1.ForeColor = vbY ellowElse: Label1.ForeColor = vbRedEnd IfEnd Sub第五题1、“大家好”电子滚动平当单击按钮“开始”时从左向右滚动，当滚动到屏幕最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动2、在文本框中写入任意内容，单击“添加”按钮可以将文本框中的内容加入到列表框中Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 100If Label1.Left > Form1.Width - Label1.Width ThenLabel1.Left = 0End IfEnd Sub第六题1、标签中写入“大家好”，每秒钟“大家好”和“哈哈”交替出现（即，第一秒出现“大家好”。
VB上机综合测试题(十五套)
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％；单击“清除”按钮,清除文本框中的内容；单击“退出”按钮，关闭窗口.（35分）2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图)（25分）。
VB6.0上机实验报告
试验报告院（系）：课程名称：日期：代码：Private sub command1_click() a=val(text1.text)b=val(text2.text)c=val(text3.text)Private sub command1_click() a=val(text1.text)5. 在程序中声明一个常量，然后改变其值，观察程序执行结果；分别定义全局变量、窗体级全局变量及私有变量，并区别其异同。
代码：全局变量public x as integer 作用于整个应用程序窗体模块变量dim x% private x% 作用于窗体模块Dim a(6) As DoublePublic Sub Command1_Click()Private Sub Command1_Click() Dim a(1 To 20) As Integerk = 1For i = 1000 To 3 Step -1出来。
\题2 程序运行界面代码：Private Sub Command1_Click()x As LongPrivate Sub Command1_Click() Picture1.Left = Picture1.Left + 100 End SubDim A(20) As IntegerDim max As Integer, min As IntegerPrivate Sub Command1_Click() Dim i As IntegerPrivate Sub Timer1_Timer()Vb程序设计实验报告Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then '如果点的是右键第21 页共21 页。
二级VB上机注意事项
VIP有效期内享有搜索结果页以及文档阅读页免广告特权，清爽阅读没有阻碍。
知识影响格局，格局决定命运！ 多端互通
抽奖特权
VIP有效期内可以无限制将选中的文档内容一键发送到手机，轻松实现多端同步。 开通VIP后可以在VIP福利专区不定期抽奖，千万奖池送不停！
福利特权
开通VIP后可在VIP福利专区定期领取多种福利礼券。
服务特 权
共享文档下载特权
VIP用户有效期内可使用共享文档下载特权下载任意下载券标价的文档（不含付费文档和VIP专享文档），每下载一篇共享文
档消耗一个共享文档下载特权。
年VIP
月VIP
连续包月VIP
享受100次共享文档下载特权，一次 发放，全年内有效
赠每的送次VI的发P类共放型的享决特文定权档。有下效载期特为权1自个V月IP，生发效放起数每量月由发您放购一买次，赠 V不 我I送 清 的P生每 零 设效月 。 置起1自 随5每动 时次月续 取共发费 消享放， 。文一前档次往下，我载持的特续账权有号，效-自
如果交卷不成功，请告知监考老师。
其它问题
发送邮件时的内容为准考证号与姓名，必须写在 首行上，中间不能有空格，准考证号为英文状态下 的数字，姓名为中文的半角。
IE的基本设置都在“工具” － “Internet选项” （或者“控制面板” －>“Internet选项”）。
IE的收藏夹设置都在“收藏” － “整理收藏夹 ”。
浙江省计算机等级考试 上机测试注意事项
（二级VB语言）
操作步骤
1.打开上机测试系统，填写两遍准考证号码，核对显 示的考生姓名；
2. 进入连接服务器界面;
特权福利
特权说明
VIP用户有效期内可使用VIP专享文档下载特权下载或阅读完成VIP专享文档（部分VIP专享文档由于上传者设置不可下载只能 阅读全文），每下载/读完一篇VIP专享文档消耗一个VIP专享文档下载特权。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
VB程序设计上机指导
VB程序设计上机指导实验一窗体文件、工程文件的建立、保存与打开（一）（2学时）一、上机目的1、掌握工程文件的建立、保存和打开方法。
2、掌握窗体文件的建立、保存和打开方法。
3、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
二、上机内容及主要步骤上机题1：设计一简单应用程序，在窗体上放置1个文本框、2个命令按钮，初始的时候text控件值为空，单击“继续”按钮后text控件显示“这是我的第一个VB应用程序”，单击“结束”按钮退出，用户界面如图所示。
图1主要步骤提示：（1）新建一个工程；（2）按上图所示在窗体上添加一个标签（label）控件，两个命令按钮（command）控件，并相应调整它们在窗体中的位置；（3）将标签控件的text属性设置为空（即清除text属性中的文本text1）；（4）双击“结束”按钮，在弹出的代码窗口中编写相应的事件过程，如图2；（5）同理，双击“继续”按钮，在弹出的代码窗口中编写相应的事件过程，如图3；（6）保存并运行工程，如运行时有错误请根据提示做相应修改后再保存再运行。
图2图3上机题2：设计如图4的密码验证程序，假设正确密码是“123456”，单击“验证”按钮时，如果输入的密码正确则在标签2上提示“密码正确！”，否则则在标签2上提示“密码错误！”，单击“退出”按钮退出程序。
主要步骤提示：（1）建立如图4所示的应用程序界面（包括两个标签，标签1用于显示“请输入密码”，标签2用于显示经过密码校验后的结果，标签2初始值为空；一个文本框，注意密码输入的时候要显示成*号的形式，可在password属性里设置；两个命令按钮）。
（2）“验证”按钮的事件过程如下：Private Sub Command1_Click()If Text1.Text = "123456" ThenLabel2.Caption = "密码正确！"ElseLabel2.Caption = "密码错误！"EndifEnd Sub（3）保存并运行工程，结果如图5、图6所示。
我的vb上机实验报告
计算机上机实习（vb）大致思路：1.首先建一个文本文件“学生成绩”放在一个新建文件夹中，然后在此文件夹中输入二十个人的成绩及相关信息，包括学号，姓名，五门课程的名称。
2.再建一个文件夹叫做“课程学分”，在里面输入每个课程的编号，学时和名称并保存。
3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名，再把这班级成绩表保存在新建的文本文件“班级成绩表”中。
4.分别统计全班每门课的平均分，并计算每门课在60分以下，60~69,70~79,80~89,90分以上的人数，用vb创建一个叫“各分数段人数”的文本文件装此数据。
5.编程找出每门课中不及格的人，并在窗体上显示名单。
6.编程找出符合优等条件的人并在窗体上显示名单。
具体的流程：1.先编写如下程序使学生的每个信息的到保存，在自定义数组stu中有学生的姓名，学号，各科成绩。
再命名两个数组name和xf，让文本文件里的每一个信息调用起来方便简单。
2.求加权平均分，让每个学生的各科成绩分别乘以各成绩的学分，在除以总学分即为加权平均分。
有两个循环分别是20 个学生的循环和五门课的循环。
3.排名次，由于当两个人的成绩相等时要求名次一样，所以用书上常用的冒泡法和选择排序法是有些麻烦的，从而我用了把分数和每一位同学的分数比较来累计排名。
此时要在stu类型中加一个rank的分量。
从而有了下面的代码：4．统计分数段时，要求是统计每科的分数段人数，所以我先写了一个课程的分段程序，再把它复制四遍做适当的调整就得到了五门课的分段的程序：Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次，所以代码用只读打开文本文件。
VB上机实验报告详细易懂
VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。
2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。
2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。
vb上机考试试题
vb上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。
VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。
VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。
下面，我们列举一些常见的VB上机考试试题。
1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。
提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。
2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。
提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。
3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。
如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。
提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。
4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。
提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。
5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。
提示：可以使用文本框和按钮控件以及一些数组和循环语句。
这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。
在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。
总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。
我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。
VB上机指导书
VB6.0程序设计上机实验指导实验一熟悉VB集成开发环境及简单应用程序的建立一、实验目的1．掌握VB6.0的启动与退出2．了解VB6.0的集成开发环境，熟练掌握各主要窗口的使用3．VB6．0应用程序的开发过程4．了解VB6.0联机帮助的使用二、实验内容建立一个VB应用程序：计算圆面积。
三、实验步骤1．启动VB启动VB可采用下面两种方法：（1）“开始”菜单→“程序”→“Microsoft Visual Studio 6.0中文版”子菜单→“Microsoft Visual Studio 6.0中文版”程序（2）双击桌面上VB的快捷方式图标启动VB6.0后，会显示如图1-1所示一个“新建工程”对话框。
图1-1 启动VB6.02．新建一个工程要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项(默认)然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境，屏幕上出现一个默认的“Forml”窗体。
图1-3 VB6.0应用程序集成开发环境3．界面设计双击工具箱上的命令按钮（CommandButton），在窗体中出现一个带有“Command1”字样的命令图形对象，用鼠标把它拖到窗体的合适位置；用同样的方法再建立一个命令按钮“Command2”，并把它放到窗体的合适位置。
4.属性设置为了明确应用程序的功能，一般需要修改控件的属性。
首先，从屏幕右边的属性窗口中打开Form1的属性列表，找到Caption属性栏，把其值由“Form1”改为“计算圆面积”，按回车确认，窗体标题随之改变，如图1-3所示。
然后，从属性窗口中打开命令按钮Command1的属性列表，将其名称属性设为Cmdstart，找到Caption属性栏，把其值改为“开始”，用同样的方法，把命令按钮Command2的名称属性设为Cmdend，Caption值改为“结束”，用户界面设计完成如图1-3所示。
图1-3 设计界面5．编写代码计算圆面积的计算公式是S=πR2,其中，π表示圆周率（这里取值为3.14），R为半径，S为圆面积，根据计算公式，编写如下代码：（1）双击“开始”按钮，打开代码窗口，如图1-4所示，然后输入如下代码：Private Sub Cmdstart_Click()Dim s, rr = InputBox("请输入圆半径：")s = 3.14 * r * rPrintPrint "半径为"; r; "面积为"; sEnd Sub（2）在代码窗口的对象列表框中选择对象“Cmdend”；在过程列表框中选择事件Click(如图1-4)，然后输入如下代码：Private Sub Cmdend_Click()EndEnd Sub图1-4 代码窗口6．运行程序运行VB程序有3种方法：（1）单击工具栏中“启动”按钮（2）按F5键（3）单击菜单栏的“运行”，并从子菜单中选择“启动”命令关闭代码窗口，用鼠标单击工具栏中启动按钮。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验二简单程序设计（循环）实验目的1、掌握选择结构程序设计方法，灵活使用有关语句。
2、掌握循环结构程序设计方法，灵活使用各种循环语句。
实验内容1、输出以下图形保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为1-1.frm，工程文件名为1-1.vbp。
Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 10Print Space(25 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iEnd Sub2、实验指导书实验6-1 十进制转换成十六进制程序保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为1-2.frm，工程文件名为1-2.vbp。
Private Sub Command1_Click()Dim n As Integer, st As String, p As String * 1n = Val(Text1.Text)DoSelect Case n Mod 16Case 10p = "A"Case 11p = "B"Case 12p = "C"Case 13p = "D"Case 14p = "E"Case 15p = "F"Case Elsep = n Mod 16End Selectst = p & stn = n \ 16Loop Until n = 0Text2.Text = stEnd SubPrivate Sub Command2_Click()Text1.Text = "": Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub3、实验指导书实验6-3 素数程序保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为1-3.frm，工程文件名为1-3.vbp。
Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)For i = 2 To Sqr(x)If x Mod i = 0 Then Exit ForNext iIf i > x - 1 ThenMsgBox Str(x) & "是素数"ElseMsgBox Str(x) & "不是素数"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub4、实验指导书实验6-5 随机数程序保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为1-4.frm，工程文件名为1-4.vbp。
Private Sub Command1_Click()Dim i As Integer, n1 As Integer, n2 As IntegerDim st As StringFor i = 1 To 10n = Int(90 * Rnd + 10)st = st & Str(n)If n Mod 2 = 0 Thenn2 = n2 + 1Elsen1 = n1 + 1End IfNext iText1 = stText2 = n2Text3 = n1End Sub5、统计所有中间数为奇数的三位对称数的个数。
对称数如252保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为1-5.frm，工程文件名为1-5.vbp。
实验三数组（1）实验目的1、掌握数组的定义方法。
2、掌握固定大小数组与动态数组的使用方法。
实验内容1、实验指导书实验6-4 求函数近似值问题注：求函数近似值问题一般可以转换为累加和累乘的问题，关键是要找出前后相邻项之间的递推关系，求出通项保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为3-1.frm，工程文件名为3-1.vbp。
2、将一个一维数组a(9)（数组中依次存放数字1-9）中各个元素值按行的顺序放入二维数组b(3,3)中并在窗体上输出二维数组各数组元素的值。
注：（1）对于一维数组用一层循环来控制数组的输入和输出（2）二维数组的输入和输出，一般情况下使用双重循环结构，外层循环控制行的变化，内层循环控制列的变化。
保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为8-2.frm，工程文件名为8-2.vbp。
Option Base 1Private Sub Form_Click()Dim a(9) As Integer, b(3, 3) As IntegerFor i = 1 To 9a(i) = iNext ik = 1For i = 1 To 3For j = 1 To 3b(i, j) = a(k)Print b(i, j)k = k + 1Next jNext iEnd Sub3、实验指导书实验7-2注：（1）掌握产生的数如何在文本框中多行显示输出（尤其注意文本框多行显示时如何换行）（2）如何获取数组中最大数与最小数及其位置（掌握编程方法）保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为8-3.frm，工程文件名为8-3.vbp。
Option Base 1Private Sub Command1_Click()Dim a(20) As Integer, i As Integer, st As StringDim max As Integer, min As Integer, maxp As Integer, minp As Integer For i = 1 To 20a(i) = Int(100 * Rnd + 1)st = st & Str(a(i))If i Mod 10 = 0 Then st = st & vbCrLfNext iText1 = stmax = a(1): min = a(1)For i = 2 To 20If a(i) > max Thenmax = a(i)maxp = iElseIf min > a(i) Thenmin = a(i)minp = iEnd IfNext iText2.Text = max & "位置是" & maxpText3.Text = min & "位置是" & minpEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = "": Text3 = ""End Sub4、实验指导书实验7-3注：（1）如何在图片框中打印（显示）信息（尤其注意图片框中如何换行）（2）如何在数组中动态显示行（列）值的方法保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为8-4.frm，工程文件名为8-4.vbp。
Private Sub Command1_Click()Dim a(4, 3) As Integer, i As Integer, j As IntegerDim max As IntegerFor i = 1 To 4For j = 1 To 3a(i, j) = InputBox("请输入矩阵第(" & i & "," & j & ")元素", "输入矩阵元素")Picture1.Print a(i, j),Next jPicture1.PrintNext iFor i = 1 To 4max = a(1, 1)For j = 2 To 3If max < a(i, j) Then max = a(i, j)Next jPicture1.Print "第" & i & "行最大的是"; maxNext iEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()EndEnd Sub实验五数组（3）实验目的1、巩固数组的创建与使用。
2、掌握选择排序法。
3、掌握二分查找算法。
实验内容1、设计程序，（1）随机生成20个1-100之间的正整数，并显示在文本框1中；（2）然后用选择排序法按由小到大进行排序，并将排序后的结果显示到文本框2中；（3）最后统计出其中素数的个数，并将结果显示到图片框中（要求：每3个数换行显示）。
保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为5-1.frm，工程文件名为5-1.vbp。
Dim a(20) As Integer, b As Integer, st As IntegerPrivate Sub Command1_Click()For i = 1 To 20a(i) = Int(100 * Rnd + 1)Text1.Text = Text1 & Str(a(i))Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 19For j = i + 1 To 20If a(i) > a(j) Thenb = a(i)a(i) = a(j)a(j) = bEnd IfNext jText2 = Text2 & Str(a(i))Next iText2 = Text2 & Str(a(i))End SubPrivate Sub Command3_Click()Dim prime() As Integer, m As IntegerFor i = 1 To 20For j = 2 To Sqr(a(i))If a(i) Mod j = 0 Then Exit ForNext jIf j > Sqr(a(i)) Thenm = m + 1ReDim Preserve prime(m) As Integerprime(m) = iEnd IfNext iFor i = 1 To mPicture1.Print prime(i);t = t + 1If t Mod 3 = 0 Then Picture1.Print Next iEnd Sub2、实验指导书实验7-12保存时存放在以自己姓名和学号命名的文件夹下，窗体文件名为5-2.frm，工程文件名为5-2.vbp。