VB操作题库-星级全套文字版(7)

End If End Sub （2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。

文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 Dim n As Integer

Private Sub Command1_Click()

n = Val(InputBox(\请输入整数（8-12）\输入\

' If n > ? Or n < 8 Then ***** 12 ***** MsgBox (\数据错误，请重新输入\ Command2.Enabled = False Command3.Enabled = False Else

Command2.Enabled = True Command3.Enabled = True End If End Sub

Private Sub Command2_Click() Dim s As Long, k As Integer *****'考生应编写的程序***** S=1

For k=2 to n S=s+f(k) Next k

Text1.text=s

*****End Sub*****

Function f(n As Integer) As Long

' s = ? ***** 1 ***** For k = 2 To n s = s * k Next

' f = ? ***** s ***** End Function

Private Sub Command3_Click()

Open App.Path & \ Print #1, n, Text1 Close #1 End Sub

*****第14套 综合应用题★★

在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为‘启动’、‘注册’、‘登录’，运行时显示‘启动’窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且‘口令’与‘验证口令’须相同，注册成功则在‘启动’窗体的标签中显示‘注册成功’，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在‘启动’窗体的标签上显示‘登录成功’，否则显示相应错误信息。

标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在user中的位置，否则返回0。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。 ―――――――――Form2――――――――――――――――――――――――― Private Sub Command1_Click() Text1 = \ Text2 = \ Text3 = \End Sub

Sub writeusers()

' n = n + ? ***** 1 ***** users(n, 1) = Text1 users(n, 2) = Text2 End Sub

Private Sub Command2_Click() If Text1 = \

MsgBox (\必须输入用户名！\ Text1.SetFocus

' ElseIf finduser(Trim$(Text1)) > ? Then ***** 0 ***** MsgBox (\此用户名已经存在!\ ElseIf Text2 <> Text3 Then

MsgBox (\口令验证错误!\ Else

writeusers

' ? = \注册成功！\ ***** form1.label1.caption ***** Form2.Hide End If End Sub

―――――――――Form3――――――――――――――――――――――――― Private Sub Command1_Click() k = finduser(Trim$(Text1))

' If k = ? Then ***** 0 ***** MsgBox (\没有注册！\

' ElseIf Trim$(Text2) <> users( ? ) Then ***** n,2 ***** MsgBox (\口令错误！\ Else

Form1.Label1.Caption = \登录成功！\ Form3.Hide End If End Sub

第15套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题居中显示\等级考试\，并使标签的外观如图所示。程序运行后的窗体见下图。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。

（2）在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为\红桃\、\黑桃\、\清除\。在考生文件夹下有两个图标文件，其名称分别为\和\。程序运行时，单击\黑桃\按钮，则在图像框中显示黑桃图案(即Misc37.ico文件)；单击\红桃\按钮，则在图像框中显示红桃图案(即Misc34.ico文件，如图所示)；单击\清除\按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 控件 属性 设置值 控件 属性 设置值 图像框 Name Image1 命令按钮2 Name Command2 黑桃 BorderStyle Stretch 1 Ture 命令按钮1 Name Command1 Caption 红桃 命令按钮3 Caption Name Command3 Caption 清除

Private Sub Command1_Click() Image1.Picture = LoadPicture( \End Sub

*****第15套 简单应用题★★

Private Sub Command2_Click() Image1.Picture = LoadPicture(\End Sub Private Sub Command3_Click() Image1.Picture =loadpicture(“”) End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为\得分\的框架，在框架中有一个名称为Text1的文件框数组，含六个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击\计算分数\按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。

计算方法：

去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。

注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释

符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click()

Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0)．Text) s = a b = a

' For k = 1 To ? ***** 5 ***** s = s + Val(Text1(k)．Text)

' If ? < Val(Text1(k)．Text) Then ***** a ***** a = Val(Text1(k)．Text) End If

If b > Val(Text1(k)．Text) Then b = Val(Text1(k)．Text) End If Next k

' s = (s - a - b) / ? *****