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

（2）在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为\放大\、\缩小\，如图所示。

要求：

①请编写适当的事件过程，程序运行后，如果单击\放大\按钮，则将图像框的高度、宽度均增加100；单击\缩小\按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。

控件 属性 设置值 控件 属性 设置值 图像框 Name Image1 Width 1700 命令按钮1 Name C1 命令按钮2 Caption 放大 Name C2 Caption 缩小 Height 1900 Picture pic1.bmp Stretch True Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100 End Sub 第03套 简单应用题★★★

Private Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：

①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中；

②单击\计算\按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立

333153?1?5?3?所以153就是一个水仙花数) 方和时，此数被称为水仙花数。如：

在窗体文件中已经给出了全部控件(如图所示)和\读数据\命令按钮的事件过程以及

判断一个数是否为水仙花数的通用过程。要求编写\计算\命令按钮的事件过程。

注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行\计算\，并且必须通过单击窗体右上角的\关闭\按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

Dim a(100) As Integer

Private Sub Command1_Click() Dim k As Integer

Open App.Path & \For k = 1 To 100

Input #1, a(k) Next k

Close #1 End Sub

Private Sub Command2_Click()

'***** 需考生编写的程序 ***** Dim i As Integer

Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100

If isnarc(a(i)) Then

If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i

Text1 = max Text2 = min End Sub

'以下Function 过程用于判断某数是否为水仙花数 Function isnarc(p As Integer) x = Fix(p / 100)

y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10

If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else

isnarc = False End If

End Function

Private Sub Form Unload(Cancel As Integer) Open App.Path & \Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1 End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：\、\、\列表项的顺序不限，但必须是这3个数字)；添加一个名为Text1的文本框；再添加一个标题为\计算\、名称为C1的命令按钮。如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击\计算\按钮，则计算5000

以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。

Private Sub C1_Click()

'***** 需考生编写的程序 ***** Dim sum As Long Dim n As Integer Dim i As Integer

n = Val(Cb1.Text) For i = 1 To 5000

If i Mod n = 0 Then sum = sum + i End If Next i

Text1.Text = sum End Sub

第03套 综合应用题★★★

在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。请完成以下工作：

①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如图所示； ②建立下拉式菜单，如下表所示:

标题 名称

Edit 编辑

Cut 剪切

Copy 复制

Paste 粘贴

③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。以便实现如下功能：当光标所在的文件框中无内容时，\剪切\、\复制\不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则\粘贴\不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。

注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。 Dim which As Integer Private Sub copy_Click() If which = 1 Then

Text3.Text = Text1.Text ElseIf which = 2 Then

Text3.Text = Text2.Text End If End Sub

Private Sub cut_Click() If which = 1 Then

Text3.Text = Text1.Text Text1.Text = \ElseIf which = 2 Then

Text3.Text = Text2.Text Text2.Text = \End If End Sub

Private Sub edit_Click()

' If which = ? Then ***** 1 ***** If Text1.Text = \

cut.Enabled = False Copy.Enabled = False Else

cut.Enabled = True

Copy.Enabled = True End If

' ElseIf which = ? Then ***** 2 ***** If Text2.Text =\

cut.Enabled = False Copy.Enabled = False Else

cut.Enabled = True Copy.Enabled = True End If End If

If Text3.Text = \Paste.Enabled = False Else

Paste.Enabled = True End If End Sub

Private Sub paste_Click() If which = 1 Then

' Text1.Text = ? ***** Text1.Text+Text3.Text ***** ElseIf which = 2 Then

' Text2.Text = ? ***** Text2.Text+Text3.Text ***** End If End Sub

Private Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1 which = 1 End Sub

Private Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2 which = 2 End Sub

第04套 基本操作题★★

（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为\打 …… 此处隐藏：3240字，全部文档内容请下载后查看。喜欢就下载吧 ……