《vb实验报告总结精选 》由会员分享，可在线阅读，更多相关《vb实验报告总结精选 （16页珍藏版）》请在金锄头文库上搜索。
1、精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 1 / 17vb 实验报告总结实 验 报 告课程名称 程序设计语言 实验学期 至 学年 第 学期学生所在系部年级 班级学生姓名 学号任课教师实验成绩计算机学院制计算机学院综合性实验报告 程序设计语言 课程综合性实验报告编号：20112012 学年第二学期实 验 报 告实验课程名称 VB 程序设计基础与 VBA 应用专 业 班 级学号学 生 姓 名实验指导老师浙江大学城市学院实验报告课程名称 VB 程序设计基础与实验 实验项目名称 实验十、上机综合练习 学生姓名 专业班级 学号精品文档2016 全新精品资料-全新公文范文 -
2、全程指导写作 独家原创 2 / 17实验成绩 指导老师 日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法。二. 实验内容和原理从键盘输入两个正整数，判定其中一个是否能整除另一个；Private Sub Form_ClickDim a As Integer, b As Integera = Val)b = Val)If a Mod b = 0 Or b Mod a = 0 Then Print 能整除 Else Print 不能整除 End Sub从键盘输入 n，计算 s=1-5+9-13+17-+的值；Private Su
3、b Form_ClickDim n As Integer, flag As Integer, i As Integer, s As Integern = Val)flag = 1: s = 0For i = 1 To 4 * n + 1 Step 4s = s + i * flag精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 3 / 17flag = -flagNext iPrint sEnd Sub产生 30 个两位随机整数、并按从小到大的顺序存入数组 a 中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_ClickDim
4、a As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a = : Next iFor i = 1 To 29For j = If a a Thenm = a: :a = mEnd IfNext j,iFor i = 1 To 30If Then Print a;Next iEnd SubPrivate Sub Form_ClickDim a As Integer, i As Integer, j As Integer, m 精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 4 / 17As IntegerP
5、rint 排序前：For i = 1 To 30a = Int) + 10Print a;If i Mod 10 = 0 Then PrintNext iFor i = 1 To 29For j = i + 1 To 30If a a Thenm = a: a = a: a = mEnd IfNext jNext iPrint 排序后：For i = 1 To 30Print a;If i Mod 10 = 0 Then PrintNext iPrint 其中的奇数：For i = 1 To 30If a Mod 2 = 1 Then Print a;精品文档2016 全新精品资料-全新公文范
6、文 -全程指导写作 独家原创 5 / 17Next iEnd Sub求二维数组 a 中的最大值以及最大值所在的行号和列号，行数 m、列数 n 及数组元素从键盘输入；Private Sub Form_ClickDim a As Integer, m As Integer, n As Integer, i As Integer, j As IntegerDim x As Integer, y As Integer, Max As Integerm = Val)n = Val)ReDim aFor i = 1 To mFor j = 1 To na = InputBox) Print a;Next
7、jPrintNext iMax = aFor i = 1 To mFor j = 1 To nIf Max Max = ax = i精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 6 / 17y = jEnd IfNext jNext iPrintPrint 最大值为 & Max & 在第 & x & 行 & y & 列End Sub产生 k 个互不相等的三位正整数。Private Sub Form_ClickDim k As Integer, a As Integerk = Val)ReDim aFor i = 1 To ka = Int) + 100For j =
8、1 To i - 1If a = a Then i = i - 1Next jNext iFor i = 1 To kPrint a;If i Mod 8 = 0 Then Print精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 7 / 17Next iEnd Sub几何图形打印。* 1 A* 222 BCD* 33333 EFGHI* 4444444 JKLMNOP内蒙古工业大学能动学院实 验 报 告课程名称： 高级语言程序设计 实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性 综合性 设计性 实验室名称： 校计算中心 班级： 学号：姓名： 组别：同
9、组人： 成绩： 实验日期：实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等 4 实验过程中需要记录的实验数据表格 二、 实验过程精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 8 / 17中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备型号及编号 2 实验器材或软件环境 3 实验步骤、程序调试方法 4 实验数据处理及结果分析 5 实验中存在的问题 6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐预习报告成绩
10、： 指导教师审核： 年 月 日预习报告实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。实验仪器及软件环境：普通台式电脑、microsoft visual basic 标准环境下实验原理：利用 Rnd 函数产生 80 个随机整数，再利用 For 循环将产生的随机整数入到数组中，最后用 If 语句按每行 10 个数输出到第一个文本框中；用 If 句和 Mod 函数判断是否为奇偶数，后利用冒泡排序法将奇偶数排序分别输到二、三文本框中。调用 Function 函数判断素数，利用 For 循环和If 函输出，用累计求和法将素数的个数求出放入第四、五个文本框中。精品文档2016 全新
11、精品资料-全新公文范文 -全程指导写作 独家原创 9 / 17方案设计： 界面设计如下：存语出数程序框图如下预编代码： Option Base 1Dim i%, j%, a%, b%, c%, l%, m%, n%, w%, p%, q% Private Sub Command1_Click For i = 1 To 80 Randomizec = Int= & & c s = s + 1If s Mod 10 = 0 Then= & vbCrLf End If Next iFor i = 1 To 79 For j = 1 To 79If c c Then t = cc = c c = t
12、End If Next j Next iFor i = 1 To 80If c Mod 2 = 0 Then m = m + 1ReDim Preserve a As Integer a = c Elsen = n + 1ReDim Preserve b As Integer b = c End If Next iFor i = 1 To n / 2 l = bb = b b = l Next i End SubPrivate Sub Command2_Click For i = 1 To m精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 10 / 17= & & a
13、p = p + 1If p Mod 10 = 0 Then= & vbCrLf台州学院VB 程序设计实验报告实验三：选择结构程序设计一、实验目的和要求1掌握逻辑表达式及关系表达式的正确书写形式；2掌握 IF 语句单行和块书写格式及其正确使用； 3掌握多分支情况的控制的使用及与多分支条件语句的区别。二、实验主要仪器和设备计算机一台，Windows XP 操作系统，Visual Basic 环境。 三、实验内容实验 在两个文本框中输入实数，单击按钮，显示“较小值是 xxx”。实验 输入三个实数，计算其中的最大值，运行界面如图 3-1 所示。图 3-1 程序运行时的界面实验 用输入对话框输入 x，根
14、据下式计算对应的 y，并在窗体上输出 y 的值。实验 由键盘输入范围内的整数，试编程将其转换为中精品文档2016 全新精品资料-全新公文范文 -全程指导写作 独家原创 11 / 17文表示的星期几，运行界面如图 3-2 所示。图 3-2 程序运行时的界面实验由键盘输入 3 个数，试编程将它们的中间数打印出来。 四、实验原始记录实验程序的界面设计。程序代码。Private Sub Command1_Click Dim a, b, c As Singlea = : b = If b a Then c = a= 较小的值是 & c Else c = b= 较小的值是 & c End If End Sub实验程序的界面设计。程序代码。Private Sub Command1_ClickDim a, b, c As Singlea = : b = : c = If a = b And a = c Then = aElseIf b
