VB上机试验【重庆医科大学】Visual___Basic_期末考试.doc

重庆医科大学Visual Basic上机实验上机试验一1. 中英文切换程序。鼠标单击“中文”命令按钮后，在标签中显示中文“谢谢光临！”；如果单击“英文“命令按钮后，在标签中显示英文“Thanks for your attendance!”，如图所示。窗体文件名为SY1-2，工程文件名也为SY1-2。上机试验二1. 在窗口中添加一个标签，设置BorderStyle属性为有边框，编写程序代码实现：单击窗体后，标签上显示如图所示的信息，标签文字字体设置为隶书，文字大小20，加粗，倾斜，下画线。完成后保存文件，窗体文件名为SY2-1，工程文件名也为SY2-1。2. 在窗体上，按下鼠标右键拖动，在窗体的标题栏中显示鼠标指针的坐标位置。完成后保存文件，窗体文件名为SY2-2，工程文件名也为SY2-2。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenForm1.Caption = X & , & YEnd IfEnd Sub3. 在窗体上，按下鼠标左键，窗体的背景色变为绿色，并显示“按下鼠标键，触发 MouseDown 事件”；松开鼠标左键，窗体的背景色变为红色，并显示“松开鼠标键，触发 MouseUp 事件”。完成后保存文件，窗体文件名为SY2-3，工程文件名也为SY2-3。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenMe.BackColor = vbGreenMe.Print 按下鼠标键，触发 MouseDown 事件End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsIf Button = 1 ThenMe.BackColor = vbRedMe.Print 松开鼠标键，触发 MouseUp 事件End IfEnd Sub4. 运行程序时，按下某个键，在窗体上显示其Ascii值和对应的按下的键名。如在键盘上依次按下“A”、“Y”、“7” 、“，”和“”键的运行结果如图。窗体文件名为SY2-4，工程文件名为SY2-4。Private Sub Form_Activate()Print Tab(1); keyascii值; Tab(15); 对应的按下的键名End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print KeyAscii; Tab(15); Chr(KeyAscii)End Sub上机试验三1. 在两文本框中输入数据，单击等号命令按钮，结果显示在标签中，如图所示。完成后保存文件，窗体文件名为SY3-2，工程文件名也为SY3-2。2. 编写程序实现窗体一出现时(Load事件过程)，用Print语句在窗体第六行20列处开始打印显示“Hello,World!” 。完成后保存文件，窗体文件名为SY3-3，工程文件名也为SY3-3。（1.注意在开头加上Form1.AutoRedraw = True！Private Sub Form_Load()Form1.AutoRedraw = TrueShowFor i = 1 To 6If i = 6 ThenPrint Tab(20); hello,world!ElsePrint End Sub3. 编写程序实现窗体一出现时(Load事件过程)，用Print方法在窗体上显示计算机系统当前的日期和时间，要求字体加粗、倾斜、下画线，字的颜色为红色。窗体文件名为SY3-4，工程文件名也为SY3-4。Private Sub Form_Load()ShowForm1.FontBold = TrueForm1.ForeColor = vbRedForm1.FontUnderline = TrueForm1.FontItalic = TruePrint 系统当前的日期和时间; & NowEnd Sub上机试验四1. 如图所示，编写程序代码实现单击命令按钮两文本框中内容的互换。工程文件名：sy4-1;窗体文件名：sy4-1 Private Sub Command1_Click()t = Text1.TextText1.Text = Text2.TextText2.Text = tEnd Sub2. 添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。工程文件名：sy4-2;窗体文件名：sy4-2Private Sub Form_KeyPress(KeyAscii As Integer)KeyAscii = 13Text2.Text = Asc(text1.text)End Sub提示：用KeyPress事件，回车键ASCII值为133. 编写程序，调用InputBox函数输入存款的本金X和存款年限N，计算若干年后本金和利息的总和是多少？假设年利率固定为4%，计算公式为：总计=本金*（1+4%）N,计算的结果通过调用MsgBox函数显示。工程文件名：sy4-3;窗体文件名：sy4-3Private Sub Form_Click()Dim x%, n%, s&x = InputBox(请输入本金)n = InputBox(请输入年限)s = x * (1 + 0.04) * nMsgBox 本金与利息总和为: & sEnd Sub4. 编写程序，单击命令按钮显示一个100，300之间的随机整数和一个随机大写英文字母。在显示这些信息之前，清除掉旧信息。工程文件名：sy4-4;窗体文件名：sy4-4 Private Sub Command1_Click()Dim x%, yClsx = Int(Rnd * 201 + 100)y = Chr(65 + Int(Rnd * 26)Print x; yEnd Sub上机试验五1. 运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上，保存窗体sy5-1，工程sy5-1。2. 运行时单击窗口，随机产生一个1000-9999间的整数，判断其是否是6的倍数。用Print方法把产生的随奇数和判断结果显示在窗口上。保存窗体sy5-2，工程sy5-2。3. 设银行的定期存款利率为：一年期2.52%，二年期3.06%，三年期3.69%，五年期4.14%。请输入存款金额，并选择存款年限，编程计算到期利息。保存窗体sy5-3，工程sy5-3。上机试验六1. 利用两种循环语句计算1+2+3+100的结果。保存窗体sy6-1，工程sy6-1Private Sub Form_Click()Dim s%, i%s = 0For i = 1 To 10 s = s + iNext iPrint sEnd Sub2. 利用一种循环语句计算12的阶乘。保存窗体sy6-2，工程sy6-2。Private Sub Form_Click()Dim s&, i%s = 1For i = 1 To 12 s = s * iNext iPrint sEnd Sub3. 利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。保存窗体sy6-3，工程sy6-3。Private Sub Form_Click()Dim r%, m%, n%, s%, i%m = Val(InputBox(请输入一个正整数)n = Val(InputBox(请输入一个正整数)If m n Then t = m: m = n: n = tEnd Ifs = m * nDo r = m Mod n m = n n = rLoop Until r = 0i = s / mMsgBox 最小公倍数 & iEnd Sub4. 利用Inpubox函数输入1个正整数，判断其是否为质数（素数），结果用Msgbox函数显示。保存窗体sy6-4，工程sy6-4。Private Sub Form_Click()Dim x%, r%, i%x = Val(InputBox(请输入一个整数)For i = 2 To x / 2 r = x Mod iNext iIf i = 0 ThenMsgBox 该数为质数ElseMsgBox 该数不为质数End IfEnd Sub5. 利用循环语句和Print方法，产生如图所示的星号图形。保存窗体分别为sy6-5、sy6-6、sy6-7，工程sy6-5、sy6-6、sy6-7。第一题Private Sub Form_Click()Dim i%, k%For i = 1 To 9Print Tab(i);For k = 1 To 8Print *;Next kNext iEnd Sub第二题Private Sub Form_Click()Dim i%, k%For i = 1 To 9Print Tab(i * 2 - 1)For k = 1 To 17 - (i - 1) * 2Print *;Next kNext iEnd Sub上机试验七1. 随机产生12个两位整数，放在数组中，用Print方法显示出每个元素的值；同时计算这些随机数的平均值，用Print方法显示出来。与第三题同理2. 随机产生8个三位整数，放在数组中，用Print方法显示出每个元素的值；同时找出这些随机数中的最小数，用Print方法显示出来。Private Sub Form_Click()Dim a(1 To 12) As Integer, i%For i = 1 To 12a(i) = Int(Rnd * 90 + 10)Print a(i);Next iMin = a(1)For i = 2 To 12If a(i) Min Then Min = a(i)Next iPrint MinEnd Sub3. 随机产生10个三位整数，放在数组中，用Print方法显示出每个元素的值；同时对这些随机数按从小到大的顺序排序，排序后用Print方法显示出来这些随机数。Private Sub Form_Click()Dim a(1 To 10) As Integer, i%, k%For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Print a(i);Next iFor i = 1 To 9Min = a(i)For k = i + 1 To 10If a(k) = Form1.ScaleWidth Thendx = -dxElseIf Label1.Left = 0 Thendx = -dxEnd IfEnd Sub其他1. 在输入框中输入正整数n，计算：将结果显示在Label1中。Private Sub form_Click ( ) n = Val ( InputBox ( “输入一个正整数” ) ) Sum = 0 Prod =1 For k=1 To n Prod = Prod * kSum = Sum +1/prod Next k Print sum End Sub2. 通过键盘输入n(15)求S=1!+3!+5!+(2*n-1)!的值Private Sub Form_Click()Dim s#, i%, j%, x%x = InputBox(请输入小于15的数)Sum = 0For i = 1 To x s = 1 For j = 1 To 2 * i - 1 s = s * j Next j Sum = Sum + sNext iPrint SumEnd Sub3. 在窗体上画圆：在窗体上按鼠标左键，以按键处为圆心，画出半径为200-500线条颜色为红色的圆。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)RandomizeIf Button = 1 Thenr = Int(Rnd * 301 + 200)Circle (X, Y), r, vbRedEnd IfEnd Sub4. 用Line方法在图片框Picture1中画出下图所示的矩形波（要求画出9个周期）。Private Sub Form_Load() Picture1.ScaleMode = 3 Picture1.ScaleWidth = 200 Picture1.ScaleHeight = 50End SubPrivate Sub Form_Click()Picture1.PSet (10, 40)For i = 1 To 9 Picture1.Line -Step(0, -30) Picture1.Line -Step(10, 0) Picture1.Line -Step(0, 30) Picture1.Line -Step(10, 0)Next iEnd Sub5. 在窗体上矩形：在窗体上按鼠标右键，以按键处矩形的左上角，矩形的边长为200-300间的随机数Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenX1 = Int(Rnd * 201 + 300)Y1 = Int(Rnd * 201 + 300)Line (X, Y)-Step(X1, Y1), , BEnd IfEnd Sub定义一个55的二维数组，其对角线元素为2。，其余元素为5Private Sub Form_Click()Dim i As Integer, j As Integer, a(1 To 5, 1 To 5) As Integer For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then a(i, j) = 2 Else: a(i, j) = 5 End If Print Tab(3 * j - 1); a(i, j); Next j Next i End Sub倒计时系统Dim t%Private Sub Command1_Click()t = 60 * Val(Text1)Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Dim s%, m%t = t - 1m = t 60s = t Mod 60Label1 = m & 分 & s & 秒If t = 0 ThenTimer1.Enabled = FalseMsgBox 时间到！End IfEnd SubDim R As Integer, G As Integer, B As IntegerPrivate Sub Form_Load()VScroll1.Min = 0VScroll1.Max = 255VScroll2.Min = 0VScroll2.