《计算机基础实验(VB)》期末考试.doc

2010级计算机基础实验（VB）期末考试1、考试形式：开卷机试2、考试时间：60分钟3、考试题目：在以下30道试题中抽取3道（易：25分、中：30分、难：45分各一道）。每人的题号由程序自动抽取，不得擅自更改。4、试题上交时需注意事项：（1）建立一个文件夹（以自己的班级学号姓名命名，如“编导2001005班*号*”），文件夹中包含3个子文件夹，子文件夹的名称为所抽取试题的题号（如某生抽取试题题号为4、15、28，则3个子文件夹的名称分别为“4”、“15”、“28”），将所抽取试题的程序依次对应放入相应的文件夹。（2）程序设计完成后，除按要求保存外，还需生成相应的可执行文件。（“文件”菜单“生成工程.exe”）（3）上交前确保每个题目的程序都保存无误，是否是程序的快捷方式。重点检查是否每个子文件夹中都有相应的工程文件（*.vbp）和窗体文件（*.frm）。最后提醒：任何将外部存储设备连上电脑的行为都视同为作弊，期末考试成绩以0分计。附：考试题目难度：易（1-10）1、 在代码中自动加载一个标签的标题和文本框的文本，单击“修改”按钮后交换标签中的标题和文本框中的文本。Private Sub Command1_Click()s = Label1.CaptionLabel1.Caption = Text1.TextText1.Text = sEnd SubPrivate Sub Form_Load()Label1.Caption = 标签Text1.Text = 文本框End Sub2、求一次方程的根 输入系数a、b的值，求一次方程ax+b=0的根，效果图如下Private Sub Command1_Click()Dim a As SingleDim b As SingleDim x As Singlea = Text1.Textb = Text2.Textx = (-b) / aText3.Text = xEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End Sub3、信息框设计设计如下对话框，选择“是”则操作正确，选择“否”则提示重新操作。 Private Sub Command1_Click() Dim intTmp As Integer intTmp = MsgBox(此项操作正确吗？, vbYesNo + vbQuestion, 提示) If intTmp = vbYes Then MsgBox 操作正确!, vbOKOnly + vbInformation, 恭喜 Else MsgBox 重新操作!, vbOKOnly + vbCritical, 不好意思哦 End If4、设计窗体及控件如图所示，在文本框中输入内容，然后单击命令按钮，在文本框中输入的内容同时显示在标签和命令按钮上。Private Sub Command1_Click()Label1.Caption = Text1.TextCommand1.Caption = Text1.TextEnd Sub5、设计一个收款计算程序如图所示，用户输入商品的“单价”，“数量”和“折扣”后，单击“计算”按钮将显示“应付款”，单击“清除”按钮清除文本框中所有数据。Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = a * b * cText4.Text = Str(d)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub6、理解大小写转换函数。在文本框中输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。单击“退出”按钮，程序结束。Private Sub Command1_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Text)End SubPrivate Sub Command3_Click()EndEnd Sub7、在窗体上输出100200之间（包括100和200）不能被3整除的奇数及这些数的和。Private Sub Command1_Click()For i = 100 To 200If i Mod 3 0 And i Mod 2 0 ThenPrint i;s = s + in = n + 1If n Mod 5 = 0 Then PrintEnd IfNextPrintPrint sEnd Sub8、设S=1*2*3*n，求S不大于400000时最大的n。Private Sub Command1_Click()s = 1i = 0While s = 400000 And s * (i + 1) = 400000i = i + 1s = s * iWendPrint iEnd Sub9、建立两个窗体，名称分别为Form1和Form2，其中Form2是启动窗体，其标题为“启动窗体”，在Form2上画一个命令按钮，名称为Command1，标题为“结束”。请编写适当的事件过程以满足一下要求：1）单击Form2窗体，则显示Form1窗体；2）单击Form1窗体，则Form1窗体消失；3）单击“结束”按钮则结束程序运行。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。Private Sub Form_Click()Form1.HideEnd Sub10、打印九九乘法表。Private Sub Form_Load()ShowFontSize = 15Print Tab(24); 九九乘法表FontSize = 10For k = 0 To 9Next kPrintFor j = 1 To 9For k = 1 To jPrint Tab(k * 9); Val(k) & & Val(j) & = & j * k;NextNext jEnd Sub难度：中（11-20）11、如图所示的窗体中建立两组单选钮，根据选择的字体和字号来改变输入内容的格式Private Sub Command1_Click()If Option1.Value = True Then Text1.FontName = 宋体If Option2.Value = True Then Text1.FontName = 黑体If Option3.Value = True Then Text1.FontSize = 8If Option4.Value = True Then Text1.FontSize = 12End SubPrivate Sub Command2_Click()EndEnd Sub12、建立列表框，在列表框中有8个学生的姓名，当选定某个学生的姓名后，单击“显示学生籍贯“按钮，在文本框上显示该学生的籍贯，如图所示，如果用户双击学生姓名，也能在文本框中显示学生籍贯信息。Private Sub Command1_Click()If List1.Text = 张三 Then Text1 = 湖南省If List1.Text = 李四 Then Text1 = 湖北省If List1.Text = 王春华 Then Text1 = 山东省If List1.Text = 关红梅 Then Text1 = 江西省If List1.Text = 华成 Then Text1 = 江苏省If List1.Text = 范杰 Then Text1 = 山西省If List1.Text = 樊平 Then Text1 = 陕西省If List1.Text = 陈蓉 Then Text1 = 海南省End SubPrivate Sub Form_Load()List1.AddItem 张三List1.AddItem 李四List1.AddItem 王春华List1.AddItem 关红梅List1.AddItem 华成List1.AddItem 范杰List1.AddItem 樊平List1.AddItem 陈蓉End SubPrivate Sub List1_DblClick()Command1.Value = TrueEnd Sub13、编一帐号和密码输入的检验程序。对输入的帐号和密码规定如下：（1）帐号为不超过6位数字，密码为4位字符，在本题中，密码假定为“Pass”。（2）密码输入时在屏幕上不显示输入的字符，而以“*”代替。（3）当输入不正确，如帐号为非数字字符或密码不正确时，显示有关信息。 Private Sub cmdclear_Click()txtno.Text = txtpas.Text = End SubPrivate Sub cmdok_Click()Dim i As IntegerIf txtpas.Text = pass ThenMsgBox 输入正确Elsei = MsgBox(密码错误, 5 + vbCritical, 输入密码)If i 4 ThenEndElsetxtpas.Text = txtpas.SetFocusEnd IfEnd IfEnd SubPrivate Sub Form_Load()txtno.Text = txtpas.Text = End SubPrivate Sub txtno_LostFocus()If Not IsNumeric(txtno) ThenMsgBox 账号有非数字字符, vbExclamation, 输入账号txtno.Text = txtno.SetFocusEnd IfEnd Sub14、调色板设计一个如下的调色板程序，根据滑块的变化来更改色块的颜色Private Sub HScroll1_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub15、平均成绩计算输入N个学生的成绩，求其平均分并找出低于平均成绩学生的学号、成绩。Dim num() As String, score() As SingleDim aver As Single, sum As SingleDim n As IntegerDim nx As String, sx, n1 As StringPrivate Sub cmdexit_Click()EndEnd SubPrivate Sub cmdin_Click()n1 = InputBox(请输入学生人数, 数据输入框)n = Val(n1)ReDim num(n), score(n)For i = 1 To n nx = 请输入第 + Str(i) + 个学生的学号 sx = 请输入第 + Str(i) + 个学生的成绩 num(i) = InputBox(nx, 数据输入框) score(i) = Val(InputBox(sx, 数据输入框)Next icmdout.Enabled = TrueEnd SubPrivate Sub cmdout_Click()For i = 1 To n sum = sum + score(i)Next iaver = sum / nPrintPrint Tab(60); 平均成绩：; averPrintPrint Tab(60); 低于平均成绩的学生的学号与成绩Print Tab(60); 学号, 成绩For i = 1 To n If score(i) c And (b + c) c And (c + a) b Thent = (a + b + c) / 2s = Math.Sqr(t * (t - a) * (t - b) * (t - c)Text4.Text = Str(s)ElseText4.Text = MsgBox(不能构成三角形)End IfEnd SubPrivate Sub Command1_Click()EndEnd Sub17、设计一个简单的四则运算器。Private Sub Command1_Click()If Option1.Value = True ThenLabel1.Caption = Option1.CaptionText3 = Val(Text1) + Val(Text2)End IfIf Option2.Value = True ThenLabel1.Caption = Option2.CaptionText3 = Val(Text1) - Val(Text2)End IfIf Option3.Value = True ThenLabel1.Caption = Option3.CaptionText3 = Val(Text1) * Val(Text2)End IfIf Option4.Value = True ThenLabel1.Caption = Option4.CaptionText3 = Val(Text1) / Val(Text2)End IfEnd Sub18、电子钟设计设计一个电子钟来显示系统当前时间，根据选择可出现不同的时间格式。如下图所示 Private Sub CmdOne_Click()If cmdone.Caption = 改为12小时 ThenTxt_time.Text = TimeValue(Txt_time)Timer1.Enabled = FalseTimer2.Enabled = Truecmdone.Caption = 改为24小时ElseTxt_time.Text = TimeValue(Txt_time)Timer1.Enabled = TrueTimer2.Enabled = Falsecmdone.Caption = 改为12小时End IfEnd SubPrivate Sub Timer1_Timer()Txt_time.Text = Format(Time, h:m:s AM/PM)End SubPrivate Sub Timer2_Timer()Txt_time.Text = TimeEnd Sub19、在窗体上有一个图片框，三个单选按钮，一个命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”。如图所示。Private Sub Command1_Click()For i = 0 To 2If Option1(i) = True Thenp1.Print 选择了; Option1(i).CaptionEnd IfNextEnd Sub20、输出所有的水仙花数。所谓水仙花数，是指一个三位数其各位数字立方和等于该数字本身。例如，153是水仙花数，因为：153=13+53+33Private Sub Form_Load()Dim x As Integer, y As Integer, z As IntegerFor x = 1 To 9 For y = 0 To 9 For z = o To 9 a = x * 100 + y * 10 + z b = x 3 + y 3 + z 3 If a = b Then Print a Next zNext yNext xlblmsg.Visible = False 隐藏标签控件使之不影响运行结果的显示End Sub难度：难（21-30）21、文章整理规范整理英语文章，即对输入的任意大小写文章进行整理，所有句子开头都应为大写字母，其他都是小写字母。（句子以问号、句号、感叹号作为结束符）。Private Sub command2_Click()txtinput.Text = txtarrange.Text = End SubPrivate Sub command3_Click()EndEnd SubPrivate Sub Command1_Click()Dim n As IntegerDim t0 As String, t1 As Stringtxtarrange = n = 1t0 = . 使文本框中的第1个字母能被整理成为大写字母t1 = Mid(txtinput, n, 1)Do While n = 65 And m = 92 Thena(m - 64) = a(m - 64) + 1End IfNextFor i = 1 To 26Text2 = Text2 & Chr(i + 64) & = & a(i) & NextEnd Sub23、将一个包含10位同学成绩的数组按分数从大到小排序，然后显示排序结果。1、Private Sub Picture1_Click()Dim stu_no(10) As IntegerDim stu_score(10) As IntegerRandomizePicture1.Print 学号 成绩Picture2.Print 学号 成绩For i = 1 To 10stu_no(i) = istu_score(i) = Int(Rnd * (100 - 30 + 1) + 30)Picture1.Print stu_no(i); ; stu_score(i)Next iPrintFor i = 1 To 10For j = 1 To 10 - iIf stu_score(j) stu_score(j + 1) Thent1 = stu_score(j)stu_score(j) = stu_score(j + 1)stu_score(j + 1) = t1t2 = stu_no(j)stu_no(j) = stu_no(j + 1)stu_no(j + 1) = t2End IfNext jNext iFor i = 1 To 10Picture2.Print stu_no(i); ; stu_score(i)Next iEnd Sub2、Private Sub Form_Load()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = InputBox(请输入第 & i & 个同学的成绩)Print a(i)NextPrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext j, iFor i = 1 To 10Print a(i)NextEnd Sub24、“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，因而6就是完备数，编制程序，找出1-10000之间的全部“完备数”。1、Private Sub Command1_Click()Dim Perfect As StringFor i = 1 To 1000If IsPerfect(i) = True ThenPerfect = Perfect & ， & iEnd IfNext iMsgBox 1到1000的完备数有： & Mid(Perfect, 2, Len(Perfect) - 1)End SubFunction IsPerfect(ByVal n As Long) As BooleanDim i As LongDim x As LongFor i = 1 To Int(n / 2) If n Mod i = 0 Then x = x + i End IfNextIf x = n ThenIsPerfect = True2、Private Sub Command1_Click()OutputWanNumber 1000End SubSub OutputWanNumber(ByVal UpperBound As Integer)Dim i As IntegerDim j As IntegerDim s As IntegerFor i = 1 To UpperBounds = 0For j = 1 To i 2If i Mod j = 0 Then s = s + jNext jIf s = i Then Print i & 是完备数Next iEnd Sub25、编写一个利用文本框对列表框进行项目添加、修改和删除操作的应用程序。“添加”按钮的功能是将文本框中的内容添加到列表框，“删除”按钮的功能是删除列表框中选定的项目。如果要修改列表框，则首先选定项目，然后单击“修改”按钮，所选的项目显示在文本框中，当在文本框中修改完成后，再单击“修改确定”按钮更新列表框。初始时，“修改确定”按钮时不可选的。Private Sub cmdadd_Click()lstbooks.AddItem Text1.TextText1.Text = End SubPrivate Sub cmddele_Click()lstbooks.RemoveItem lstbooks.ListIndexEnd SubPrivate Sub cmdmidify_Click()Text1 = lstbooks.Textcmdmodify_ok.Enabled = TrueEnd SubPrivate Sub cmdmodify_ok_Click()lstbooks.List(lstbooks.ListIndex) = Text1.Textcmdmodify_ok.Enabled = FalseEnd SubPrivate Sub Form_Load()lstbooks.AddItem 计算机文化基础lstbooks.AddItem vb6.0程序设计教程lstbooks.AddItem 操作系统lstbooks.AddItem 多媒体技术lstbooks.AddItem 网络技术基础End Sub26、判断回文所谓回文指顺读和倒读数字相同，即最高位与最低位相同，次高位与次低位相同，依次类推。如果是则弹出是对话框判断信息。 Private Sub Command1_Click()n = Val(Text1.Text)s = Len(n)m = s 2For i = 1 To ma = Mid(n, i, 1)b = Mid(n, s - i + 1, 1)If a b ThenMsgBox n & 不是回文数Exit ForEnd IfNextIf i = m + 1 Then MsgBox n & 是回文数End Sub27、求1+1/2+1/3+1/4+1/n的值（保留6位小数）。Private Sub Command1_Click()s = 0n = Val(Text1.Text)Print n; 项的和为:For x =