《实验十、上机综合练习》由会员分享，可在线阅读，更多相关《实验十、上机综合练习（11页珍藏版）》请在金锄头文库上搜索。
1、实验十、上机综合练习浙江大学城市学院实验报告课程名称VB程序设计基础与实验 实验项目名称 实验十、上机综合练习 学生姓名 专业班级 学号 实验成绩指导老师(签名 )日期一. 实验目的和要求掌握基本设计程序的能力，能使用条件语 句、循环语句和数组解决一般的数据处理及应用 问题；掌握常用算法(求平均值，求最大最小值， 排序，产生任意随机数等)。二. 实验内容和原理【练习10-1】从键盘输入两个正整数，判定其 中一个是否能整除另一个；【练习10-2】 从键盘输入n ,计算 s=1-5+9-13+17-+(4n+1)的值；【练习10-3】产生30个两位随机整数、并按从 小到大的顺序存入数组a中，再将其
2、中的奇数按 从小到大的顺序在窗体中用紧凑格式输出；Private Sub Form_Click()Dim a(30) As Integer, k As Integer, t As IntegerFor i = 1 To 30a(i) = Int(Rnd * 90) + 10Next iFor i = 1 To 29k = iFor j = i + 1 To 30If a(k) a(j) Then k = jNext j If i k Then t = a(i) a(i) = a(k) a(k) = tEnd IfNext iFor i = 1 To 30If a(i) Mod 2 = 1 Th
3、en Print a(i);Next iEnd Sub【练习 10-4 】求二维数组 a(m,n )中的最大值 以及最大值所在的行号和列号，行数 m列数n 及数组元素从键盘输入；Public Sub form_click()Dim x() As Integer, m As Integer, n As IntegerDim i As Integer, j As Integer, max As Integer, imax As Integer, jmax As Integerm = InputBox( 输入数组的行数： ) n = InputBox( 输入数组的列数： ) ReDim x(m, n
4、)For i = 1 To mFor j = 1 To nx(i, j) = InputBox( 输入数组元素 :) Next j, i max = x(1, 1) imax = 1 jmax = 1For i = 1 To mFor j = 1 To nIf x(i, j) max Then max = x(i, j) imax = i jmax = jEnd IfNext j, iPrint 最大值 :; maxPrint 最大值所在的行号和列号 :; imax; jmaxEnd Sub【练习 10-5 】产生 k 个互不相等的三位正整数。 (提示：每产生一个数 x 都要与数组中已有的元
5、素逐个比较， 若是重复数则 x 丢弃，若不是重复 数则将 x 加入数组中，直至数组中产生有互不相 等的 k 个元素。) 算法：每产生一个数 n 都要与数组中已有的元素 逐个比较， 若是重复数则 n 丢弃，若不是重复数 则加 n 入数组，直至数组中有 k 个元素。 Private Sub Form_Click()Dim a() As Single, sum As Integer, aver As SingleDim i As Integer, n As Integer k = InputBox( 输入 n:) ReDim a(k)a(1) = Int(Rnd * 900) + 100n = 1D
6、o While n n Then n = n + 1: a(n) = xLoopFor i = 1 To kPrint a(i);Next iEnd Sub【练习 10-6 】几何图形打印*A*BCD*EFGHI*JKLMNOP*QRSTUVWXY*ZABCDEFGHIJ122233333444444455555555566666666666【练习10-7】界面设计如下图，有四个标签框、四个文本框和两个命令按钮。1 当单击 确定”按钮后，首先比较 用户名”和 原密码”是否一致，若一致且都为 “admin”，, 则继续执行步骤4;否则弹出消息框，提示用户出 错,并让用户重新输入；2.比较 新密码
7、（N） ”和 新密码（S） ”，若两 者一致，弹出密码修改成功消息框，程序终止执 行。否则弹出错误消息，并让用户重新输入。3所有消息框按Design.exe所示设计。4 .当单击 取消”按钮时，程序终止执行。5当按Tab键时，保证按照 用户名”、原密 码”、新密码（N） ”、新密码（S） ”、确定” 按钮和 取消”按钮顺序访问各控件。练习10-7运行界面上机实践Private Sub Form_load()Text1.Text =Text2.Text = Text3.Text = Text4.Text = Text1.TabIndex= 0Text2.TabIndex= 1Text3.TabI
8、ndex= 2Text4.TabIndex= 3Label1.Caption =用户名（ &U ）Label2.Caption =原密码（ &P ）Label3.Caption =新密码（ &N ）Label4.Caption =新密码（ &S ）Command1.Caption= 确定 Command2.Caption= 取消 Command1.TabIndex = 4Command1.TabIndex = 5End SubPrivate Sub Command1_Click()Const password As String = admin Text1.SetFocusIf Text1.T
9、ext password Or Text2.Text password ThenMsgBox （ 原密码出错 ,请重新输入 ）Text1.Text = Text2.Text = Text1.SetFocusElseIf Text3.Text = Text4.Text Then MsgBox （ 密码修改成功 !） EndElseMsgBox （ 新密码出错 ,请重新输入 !）Text3.Text = Text4.Text = Text3.SetFocusEnd IfEnd SubPrivate Sub Command2_Click（）EndEnd Sub 编写、运行、调试以上程序。【练习10-
10、8】界面设计如下图，有三个标签框、 三个文本框和两个命令按钮。1. 三个文本框中，上面两个分别用于输入商品 单价和商品数量，单击 计算”将应付款显示在 下面一个文本框中。文本框均不接受非数字键。2. 最下面一个文本框不能直接输入。3单击 清空”按钮，三个文本框内容被清空， 同时第一个文本框获得焦点。Private Sub Comma nd1_Click()Textl.Text =Text2.Text =Text3.Text =Text1.SetFocusEnd SubPrivate Sub Comma nd2_Click()Text3.Text = Val(Text1.Text) Val(Te
11、xt2.Text)End SubPrivate Sub Form_load()Label1.Caption = 商品单价 :Label2.Caption = 商品数量 :Label3.Caption = 应付款 :Command1.Caption = 清除 Command2.Caption = 计算 Text3.Locked = True End SubAsPrivate Sub Text1_KeyPress(KeyAscii Integer)If KeyAscii asc( “9”) ThenKeyAscii = 0End IfEnd SubAsPrivate Sub Text2_KeyPress(KeyAscii In teger)If KeyAscii asc( “9” ) ThenKeyAscii = 0End IfEnd Sub练习10-8运行界面上机实践编写、运行、调试以上程序。
