发布时间 : 星期日 文章vb的操作题(有答案)更新完毕开始阅读
' MyFile2 = App.Path & \“worker1.dat” Open MyFile1 For Input As #1 Open MyFile2 For Output As #2 For i = 1 To 10
' Input #1, num(i), namstring(i), sexstring(i), wages(i) total = total + wages(i) Next i
'aver = total / 10 For i = 1 To 10
' If aver 'COMSTART.Caption = “完成” 'COMSTART.Enabled = fault End Sub Private Sub Label2_Click() End Sub 12．在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为\爱心社\和\学通社\。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示\报名参加爱心社\；如果只选中Ch2，然后单击窗体，则在文本框中显示\报名参加学通社\；如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示\报名参加爱心社和学通社\； 如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。 Option Explicit Private Sub Form_Click() Text1.Text = \ If Ch1.Value = 1 Then Text1.Text = Text1.Text + \爱心社\ End If If Ch2.Value Then If Text1.Text <> \\爱心社\+ \和\ Text1.Text = Text1.Text + \学通社\ End If If Text1.Text <> \ Text1.Text = \报名参加\ End If End Sub 13. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上建立一个水平滚动条，请在属性窗口中把它的名称设置为HS1，Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后， 滚动框位于滚动条最右端（如图所示），如果单击滚动条之外的窗体部分，则滚动框跳到最左端。 *注意： 1）只能直接为相应的属性赋值，不得使用变量。 2）保存时必须存放在考生文件夹下，窗体文件名为wy14.frm，工程文 件名为wy14.vbp 。 答案：Private Sub Form_click() HScroll1.Left = 0 End Sub 14. ）按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名 称为L1，在标签上显示\选课\，其字号大小为四号；再建立三个复选框，名称分别为Chk1、 Chk2和Chk3，标题分别为\操作系统\、\数据库原理\、\概率论\，字体大小均为14，其中\概率论\被禁用。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。 答案：Private Sub Form_Load() Check3.Enabled = False End Sub 15. 在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为 Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、 Command2，标题为\产生数组\、\查找\的命令按钮。如图所示。程序功 能如下： 1）单击\产生数组\按钮，则用随机函数生成10个0～100之间（不含0和 100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个 数值显示在Text1文本框内； 2）单击\查找\按钮将弹出输入对话框，接收用户输入的任意一个数，并 在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数\ 不存在于数组中\；否则给出该数在数组中的位置。 要求： 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述 功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的 文件按原文件名存盘。 Private Sub Command1_Click() Text1.Text = \ For i = 1 To 10 a(i) = Fix(Rnd * 99 + 1) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next j Next i For i = 1 To 10 Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub Private Sub Command2_Click() Dim num As Integer, i As Integer num = InputBox(\请输入待查找的数\ For i = 1 To 10 If a(i) = num Then Text2.Text = Str(num) + \是数组中的第\个值\ Exit For End If Next i If i > 10 Then Text2.Text = Str(num) + \不存在于数组中\ End If End Sub 16.在考生文件夹下有一个工程文件sj127.vbp（相应的窗体文件名为sjt4.frm ），其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程 序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求 出数组的最大值，并在窗体上显示出来（如图所示）。这个程序不完整， 请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。 Option Base 1 Private Function FindMax(a() As Integer) Dim Start As Integer