2012年3月vb实验考试练习题.doc

2012年VB程序设计实验考试练习题（共40题）第一部分 简单应用题（20个）1本题描述如下：解答：添加控件，并按要求修改三个命令按钮的名称和Caption属性，垂直滚动条的名称。Private Sub C1_Click() VS1.Value = VS1.MinEnd SubPrivate Sub C2_Click() VS1.Value = (VS1.Max + VS1.Min) / 2End SubPrivate Sub C3_Click() VS1.Value = VS1.MaxEnd SubPrivate Sub Form_Load() VS1.Max = 100 VS1.Min = 0End Sub2本题描述如下：Private Sub Command1_Click() EndEnd SubPrivate Sub Form_Load()Text1.Text = Command1.Caption = 退出End SubPrivate Sub Text1_Change() If IsNumeric(Text1.Text) = False Then MsgBox 不可输入非数字字符 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub3本题描述如下：解答：首先将计时器的Timer1的Interval属性设置为1000Private Sub Form_Load() Text1.Text = 0 Timer1.Enabled = False Command1.Caption = 开始计数 Command2.Caption = 停止计数End SubPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Text1.Text = Text1 + 1End Sub注意： 以上方法不是唯一的，对属性的设置（如两个命令按钮的Caption属性设置）也可以在属性窗口中设置。4本题描述如下：解答：首先修改列表框的名称属性为L1，命令按钮的名称属性为C1Private Sub C1_Click() L1.AddItem (Text1.Text)End SubPrivate Sub L1_Click() L1.RemoveItem (L1.ListIndex)End Sub5本题描述如下：建立如图所示界面，设置适当属性、编写适当程序，程序根据如下公式，由输入的身高计算标准体重。男：标准体重（kg）= 身高（cm）- 100女：标准体重（kg）= 身高（cm）- 105 解答：添加两个标签、两个单选钮和一个命令按钮，设置有关的Caption属性，添加两个文本框，将文本框的text属性清空。Private Sub Command1_Click() If Option1.Value = True Then Text2 = Text1 - 100 Else Text2 = Text1 - 105 End IfEnd Sub6本题描述如下：解答：添加一个标签，添加一个命令按钮，修改其名称为C1，Caption属性修改为“选课”，再添加三个复选框，将名称分别修改为Ch1、Ch2和Ch3，并设置Caption属性分别为“程序设计”、“数据库原理”、“计算机网络”。Private Sub C1_Click()s = 我选的课程是If Ch1.Value Then s = s & Ch1.CaptionIf Ch2.Value Then s = s & Ch2.CaptionIf Ch3.Value Then s = s & Ch3.CaptionLabel1.Caption = sEnd Sub7本题描述如下：添加一个标签和三个复选框，并按要求修改有关的名称和Caption属性，并将F复选框Chk3的Enabled属性设置为False.Private Sub Form_Load() Label1.FontSize = 14End Sub8本题描述如下：解答：首先将文本框的Passwordchar属性设置为“*”Private Sub Command1_Click()If LCase(Text1.Text) = abc ThenMsgBox (正确)Else MsgBox (错误)End IfEnd Sub9本题描述如下：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub10本题描述如下：在窗体上使用框架建立一组单选按钮；一个文本框，如图所示。根据用户选取不同的颜色修改文本框中的显示字体颜色。注意，3个表示字体颜色的单选框要求用控件数组实现。 添加一个文本框，一个框架控件，并修改其Caption属性，在框架控件中通过复制粘贴的方法创建一个单选按钮控件数组，并修改其Caption属性。Private Sub Option1_Click(Index As Integer) If Index = 0 Then Text1.ForeColor = vbRed ElseIf Index = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlue End IfEnd Sub11本题描述如下：在窗体上有两个文本框和两个命令按钮，程序运行后，在文本框text1中输入字符时显示“*”，单击“显示”按钮，则Text1中的字符显示出来，单击“复制”按钮，则将Text1中的内容复制到Text2中。 Private Sub Form_Load() Text1.PasswordChar = *End SubPrivate Sub Command1_Click() Text1.PasswordChar = End SubPrivate Sub Command2_Click() Text2.Text = Text1End Sub12本题描述如下：设计一个窗体Form1， 在此窗体上画一个标签Label1，二个复选框控件check1、check2，编写适当的事件过程。程序运行后，用户可通过这二个复选框改变标签的字体。 Private Sub Check1_Click() If Check1 = 1 Then Label1.FontName = 黑体 Else Label1.FontName = 宋体 End IfEnd SubPrivate Sub Check2_Click() Label1.FontItalic = Not Label1.FontItalicEnd Sub13本题描述如下：注意：修改名称和Caption属性Private Sub C1_Click()Form1.Caption = End SubPrivate Sub Form_Load()Command1.Caption = 清除End Sub14本题描述如下：注意：添加三个文本框和两个单选钮，并按要求修改两个单选钮的名称和Caption属性Private Sub Form_Load()Text1.Text = 等级考试Text2.Text = 计算机End SubPrivate Sub Op1_Click() t = Text1.TextText1.Text = Text2.TextText2.Text = tOp1.Visible = FalseEnd SubPrivate Sub Op2_Click()Text3.Text = Text1.Text + Text2.TextEnd Sub15本题描述如下：有一个文本框和和三个命令按钮，标题分别为“居中显示”、“文本框下移”、“移动窗体”。要求程序运行后，在文本框中输入文字，单击“居中显示”按钮，则使文本框中的文字居中显示，单击“文本框下移”，则文本框向下移动10，单击“移动窗体”，则窗体框向右下角移动10，运行结果如图，请编写代码Private Sub Command1_Click() 居中显示 Text1.Alignment = 2End SubPrivate Sub Command2_Click() 文本框下移 Text1.Top = Text1.Top + 10End SubPrivate Sub Command3_Click() 移动窗体Form1.Move Left + 10, Top + 10End Sub16本题描述如下：在窗体上画一个名称为Text1的文本框，Text的属性为“改变大小”画一个名称为HS1的水平滚动条，Max、Min、Largechange、Smallchange的属性值分别为30、1、5、2，编写事件过程，程序运行后，拖动滚动条上的滚动框时，文本框中的字体的大小会等于滚动条的Value属性值，停止拖动后，在文本框Text2中显示滚动条的当前值。 解答：添加控件并按要求设置有关的属性Private Sub HS1_Change() Text2.Text = HS1.ValueEnd SubPrivate Sub HS1_Scroll() Text1.FontSize = HS1.ValueEnd Sub17. 本题描述如下：设计一个工程，运行时首先出现一个文本框和两个命令按钮“欢迎(H)”和“时间(T)”按钮。单击“欢迎(H)”按钮在文本框中显示“欢迎学习VB6.0编程技术”，单击“时间”按钮。在文本框中显示现在北京时间。 把文本框的multiline属性设置为truePrivate Sub Command1_Click() Text1 = 欢迎使用 + Chr(13) + Chr(10) + Visual BasicEnd SubPrivate Sub Command2_Click() Text1 = 现在北京时间: + Chr(13) + Chr(10) + Str(Time)End Sub18. 本题描述如下：设计一个工程，使对输入到文本框中的英文字母既可以进行大写转换，也可进行小写转换；还能还原成输入时的状态。 Dim x As String （表示定义一个模块级变量，三个过程都用到）Private Sub Command1_Click() Text1 = UCase(Text1)End SubPrivate Sub Command2_Click() Text1 = LCase(Text1)End SubPrivate Sub Command3_Click() Text1 = xEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) x = Text1 End Sub19本题描述如下：在窗体上添加四个标签控件、一个文本框、一个水平滚动条和两个直线控件，编写程序将摄氏温度变成华氏温度。转换公式为： 其中C表示摄氏温度，F表示华氏温度。（c=5/9*（f-32）摄氏温度变成华氏温度的公式为： Private Sub HScroll1_Scroll() Text1.Text = HScroll1.Value Text2 = 32 + 9 / 5 * Text1End Sub20. 本题描述如下： 在窗体上添加两个命令按钮，并按图设置他们的Caption属性，程序运行后，单击命令按钮“移动”，则该按钮移动到窗体的左上角，单击“放大”按钮，则将该按钮的大小放大一倍，如图所示。 Private Sub Command1_Click() Command1.Move 0, 0End SubPrivate Sub Command2_Click() Command2.Width = 2 * Command2.Width Command2.Height = 2 * Command2.HeightEnd Sub第二部分 编程题（20）1某商场对顾客购物实行打折销售。规定如下：购物款500元 没有折扣500元 购物款1000元 折扣5 %1000元 2000元 折扣20% 设计工程，当输入购物款时按“计算”按钮就可以输出折扣后应交的实际购物款。运行结果如图所示。Private Sub Command1_Click() x = Val(Text1.Text)Select Case xCase Is = 500 y = xCase Is = 1000 y = (1 - 0.05) * xCase Is = 600 Then Text2 = 0.2 ElseIf x = 400 Then Text2 = 0.15 Else Text2 = 0.1 End If Text3 = Text1 * (1 + Text2)End Sub3求自然对数e的近似值，e=1+1/1!+1/2!+1/3!+1/n!, 要求1/n!精确到0.000001，运行结果如图。Private Sub Command1_Click() e = 1 存放累加和结果 i = 1 循环变量 t = 1 级数第一项的值 Do While t 0.000001 精度 t = t / i e = e + t i = i + 1 Loop Text1 = eEnd Sub4编写程序，程序运行后，在Text1中输入n值，则计算S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。Private Sub Command1_Click() n = Val(Text1) For i = 1 To n s = s + i Sum = Sum + s Next i Text2 = SumEnd Sub 5编写程序，计算S=1(1+2)(1+2+3)(1+2+3+4)(1+2+3+n)的值。Private Sub Command1_Click() n = Val(Text1) f = 1 For i = 1 To n s = s + i Sum = Sum + s * f f = -f Next i Text2 = SumEnd Sub6设s=123n ，求S不大于40时最大的n值及S值，输出结果如图所示。Private Sub Form_Click() s = 1 n = 1 Do While s 1000为止,并输出sum和n值。Private Sub Command1_Click() n = 1: Sum = 1 Do n = n + 1 Sum = Sum + n Loop Until Sum 1000 Print sum=; Sum Print n=; nEnd Sub8. 编写程序，在文本框Text1和Text2中输入两个正整数，单击“计算”命令按钮，则在Text3 中显示出它们的最大公约数，运行结果如图所示。Private Sub Command1_Click() m = CInt(Text1) n = CInt(Text2) If m n Then t = m: m = n: n = t 交换两个变量的值 End If r = m Mod n 求两个整数的余数 Do While r 0 m = n: n = r r = m Mod n 再次计算余数，此句不能省，否则死循环 Loop Text3 = n 余数为0时，此时除数n为最大公约数End Sub9输入一个整数，判断其是否是素数（只能被1和数本身整除的数是素数）。在窗体上添加一个文本框、一个标签和一个命令按钮，程序运行后，当在文本框Text1中输入一个整数，单击“判断”按钮后，在标签框Label1中输出相应的判断结果，运行界面如图所示。Private Sub Command1_Click()x = Val(Text1) For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i x - 1 Then Label1 = Text1 + 是素数 Else Label1 = Text1 + 不是素数 End IfEnd Sub10随机产生10个1，9之间的任意一个整数，并用一个一维数组保存，编写程序输出该数组，然后将第一个数与第10个数交换，第2个数与第9个数交换, 交换后再输出该数组，结果如图。Private Sub Command1_Click() Dim a(10) Print 原数组:; For i = 1 To 10 a(i) = Int(Rnd * 9) + 1 Print a(i); Next i For i = 1 To 5 t = a(i) a(i) = a(11 - i) a(11 - i) = t Next i Print Print 交换后:; For i = 1 To 10 Print a(i); Next iEnd Sub11随机产生10个10，99之间的任意一个整数，并用一个一维数组保存，编写程序输出该数组，并求出数组中的最大值及其所在的位置，并输出，结果如图Private Sub command1_Click() Dim a(10) For i = 1 To 10 a(i) = Int(90 * Rnd) + 10 Print a(i); Next i Print max = a(1) d = 1 For i = 2 To 10 If a(i) max Then max = a(i): d = i End If Next i Print 最大值:; max, 位置：; dEnd Sub12随机产生10个10，99之间的任意一个整数，并用一个一维数组保存，编写程序输出该数组，并统计10个数的平均值及大于60的数组元素的个数并输出，结果如图。Private Sub command1_Click() Dim a(10) For i = 1 To 10 a(i) = Int(90 * Rnd) + 10 Sum = Sum + a(i) Print a(i); If a(i) = 60 Then n = n + 1Next i Print Print 平均值:; Sum / 10 Print 大于60的共有:, nEnd Sub13在窗体中输出19002012年之间的所有闰年及闰年总数，要求一行输出5个。判断闰年的条件是能被4整除但不能被100整除，或能被400整除。Private Sub Command1_Click() For i = 1900 To 2012 If i Mod 4 = 0 And i Mod 100 0 Or i Mod 400 = 0 Then Print i; n = n + 1 If n Mod 5 = 0 Then Print End If Next i Print Print 共有; n; 个闰年End Sub14编写程序，显示所有水仙花数及其个数。所谓水仙花数是一个三位正整数，它等于它的各位数字的立方和，例如153=13+53+33。Private Sub Command1_Click() Dim n As Integer For n = 100 To 999 b = n 100 百位上的数字 s = n 10 Mod 10 十位上的数字 g = n Mod 10 个位上的数字 If n = b 3 + s 3 + g 3 Then Print n Next nEnd Sub15. 用二维数组存储一个4行4列的矩阵，要求矩阵中的每一个元素在1，9之间，且随机产生，编写程序，输出该矩阵，并输出两条对角线上元素的和。结果如图。Private Sub Command1_Click()Dim a(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(9 * Rnd) + 1 Print a(i, j); Next j Print Next i For i = 1 To 4 Sum = Sum + a(i, i) + a(i, 5 - i) Next iPrint sum=; SumEnd Sub16编程输出如图所示九九表。Private Sub Command1_Click()For i = 1 To 9 For j = 1 To i Print i; *; j; =; i * j; If i * j a(j) Then Min = j Next j t = a(i) 找到最小值，放到相应的位置 a(i) = a(Min) a(Min) = t Next i F