• vb的操作题(有答案)

    来源:百度  [  文档由 微微一笑吧00 贡献   ]  责编:王强  |  侵权/违法举报

    1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体如图所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中\查找最大值\(或\查找最小值\)单选按钮,再单击\查找\按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。请去掉程序中的注释符,把程序中的 ?改为正确的内容。

    注意:

    考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文

    件名存盘。

    Private Sub Command1_Click()

    x = a(1)

    y = a(1)

    For i = 2 To 10

    If Option1.Value = True Then

    If a(i) > x Then

    x = a(i)

    End If

    ElseIf a(i) < y Then

    y = a(i)

    End If

    Next

    If Option1.Value = True Then

    Label2.Caption = x

    Else

    Label2.Caption = y

    End If

    End Sub

    2.(2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其

    设置为圆形。画一个名称为List1的列表框,并在属性窗口中设置列表项的

    值分别为1、2、3、4、5。将窗体的标题设为\?#22841;?#25511;件\。单击列表框中

    的某一项,则将所选的值作为形状控件的填充参数。例如,选择3,则形状

    控件中被竖线填充。如图所示。

    要求:

    程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存

    放在考生文件夹下,工程文件名为sj107.vbp,窗体文件名为sj107.frm。

    在Shape控件中,可以用FillStyle属性设置?#22841;?#30340;填充图案,0:透明,2:虚线,3:点线,4:点划线,5:双点划线,6:内实线。

    List控件的Click事件过程为:

    Private Sub List1_Click()

      Shape1.FillStyle = List1.Text

    End Sub

    3.(1)在名称为Form1的窗体上画一个文?#31350;潁?#21517;称为Text1;再画二个命令按钮,名称分别为C1、C2,标题分别为\隐藏\、\显示\(如图所示)。请编?#35789;实?#30340;事件过程,使得在运行时,如果单击\隐藏\按钮,则文?#31350;?#28040;失,而如果单击\显示\按钮,则文?#31350;?#26174;示出来。程序中不得使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。

    隐藏:text1.visible=false

    显示:text1.visible=true

    4. 在窗体上画二个文?#31350;潁?#21517;称分别为Text1、Text2。请设置?#23454;?#30340;控件属性,并编?#35789;实?#30340;事件过程,使得在运行时,如果在Text1中每输入一个字符,则显示一个\,同时在Text2中显示输入的内容(如图所示)。程序中不得使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

    答案:将Text1的文?#31350;?#30340;PasswordChar属性为\。

    Private Sub Text1_Change()

    Text2.Text = Text1.Text

    End Sub

    5. (1)在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

    本题描述如下:在窗体上有一个列表框,名称为List1,一个文?#31350;潁?#21517;称为Text1,和一个命令按钮,名称为 C1,标题为\复制\。

    要求程序运行后,在列表框中自动建立四个列表项,分别为\、\、\、\如果选择列表框中的一项,则单击\复制\按钮时,可以把该项复制到文?#31350;?#20013;(如图所示)。

    Private Sub Command1_Click()

    Dim i As Integer

    For i = 0 To 3

    Text1.Text = List1

    Next i

    End Sub

    6 在考生文件夹下有一个工程文件sj31.vbp,相应的窗体文件为sj31.frm,此

    外还有一个名为datain.txt的文本文件,其内容如下:

    32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68

    79 80 59 37

    程序运行后,单击窗体,将把文件datain.txt中的数据输入到二维数组 Mat

    中,在窗体上按5行、5列的矩阵形式显示出来,并输出矩阵左上-右下对角线

    上的数据,如图所示。 在窗体的代码窗口中,已给出了部分程序,这个程序

    不完整,请把它?#38057;?#23436;整,并能正确运行。

    要求:

    去掉程序中的注释符,把程序中的 ? 改为正确的内容,使其实现上述功

    能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    解题方法:

    打开sjt5.vbp中的Form1窗体,打开代码窗口,修改后的代码如下:

    Option Base 1

    Private Sub Form_Click()

    Const N = 5

    Const M = 5

    Dim Mat(M, N)

    Dim i, j

    Open App.Path & \For Input As #1

    For i = 1 To N

    For j = 1 To M

    Input #1, Mat(i, j)

    Next j

    Next i

    Close #1

    Print

    Print \初始矩阵为:\

    Print

    For i = 1 To N

    For j = 1 To M

    Print Tab(5 * j); Mat(i, j);

    Next j

    Print

    Next i

    Print

    Print \左上 - 右下对角线上的数为:\

    For i = 1 To N

    For j = 1 To M

    If i = j Then Print Tab(5 * j); Mat(i, j);

    Next j

    Next i

    End Sub

    7.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

    (1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄?#20445;?#20004;个文?#31350;潁?#21517;称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示?#20445;?#28982;后编写命令按钮的Click事件过程。程序运行后,在两个文?#31350;?#20013;分别输入姓名和年龄,然后单击命令按钮,则在窗体上显示两个文?#31350;?#20013;的内容,如图所示。要求程序中不得使用任何变量。

    *注意:存盘时必须存放在考生文件夹下,工程文件名为sj39.vbp,窗体文件名为sj39.frm。

    Private Sub Command1_Click()

    Print Text1.text+”,现年”+text2.text+“岁”

    End Sub

    8.在名称为Form1的窗体上画一个图片框(名称为Picture1)、一个水平滚动条(名称为HScroll1)和一个命令按钮(名称为Command1,标题为?#21543;?#32622;属性?#20445;?#36890;过属性窗口在图片框中装入一个?#22841;危?#25991;件名为p02.jpg,位于考生文件夹下),图片框的高度与?#22841;?#30340;高度相同,图片框的宽度任意(如图1所示)。编?#35789;实?#30340;事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的如下属性:

    Min 100

    Max 1500

    LargeChange 100

    SmallChange 10

    之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。

    *注意:存盘时必须存放在考生文件夹下,工程文件名为sj40.vbp,窗体文件名为sj40.frm。

    图1 图2

    Private Sub Command1_Click()

    HScroll1.Max = 1500

    HScroll1.Min = 100

    HScroll1.SmallChange = 10

    HScroll1.LargeChange = 100

    End Sub

    Private Sub HScroll1_Change()

    Picture1.width=HScroll1.value

    End Sub

    9.在考生文件夹下有工程文件wy54.vbp及窗体文件wy54.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即 '号),但不能修改其它部分。存盘时不得改变文件名和文件夹,相应的 dat文件也保存到考生文件夹下,否则没有成绩。

    本题描述如下:

    在名称为Form1的窗体上有五个Label控件和两个命令按钮,数据文件stud1.dat,存放考生的考号、姓名、成绩。

    1)自定义一个数据类型stu,字符型数据定长为10。

    2)按\开始\按钮后,能从考生文件夹下的stud1.dat 中读出所有数据并写入考生文件夹下的stud.dat文件中;

    3)执行完毕,\开始\按钮变成\完成\,且无效(变灰);

    Private Type stu

    num As Long

    ' nam As String * 10

    score As Single

    'End type

    Private Sub Command1_Click()

    Dim rec As stu

    Dim i As Integer

    myfile1 = App.Path & \\student.dat\

    myfile2 = App.Path & \\student1.dat\

    Open myfile1 For Input As #1

    Open myfile2 For Input As #2

    For i = 1 To 8

    Input #1, rec.num, rec.nam, rec.score

    Write #2, rec.num, rec.nam, rec.score

    Next I

    Close

    Command1.Caption = \完成\

    Command1.Enabled = False

    End Sub

    10.在Form1的窗体上画一个标签,其名称为Lab1;再画一个列表框,其名为L1,通过属性窗口向列表框中添加若干个项目,每个项目的具体内容不限,编?#35789;实?#30340;事件过程。程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt14.vbp,窗体文件名为sjt14.frm。

    Private Sub L1_DblClick()

    Lab1.Caption = L1.ListCount

    End Sub

    11.在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即 '号),但不能修改其它部分。存盘时不得改变文件名和文件夹,相应的 dat文件也保存到考生文件夹下,否则没有成绩。

    本题描述如下:

    在名称为Form1的窗体上有五个Label控件和两个命令按钮, 数据文件worker.dat,存放工人的编号、姓名、性别和体重。

    1)按\开始\按钮后,能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中;

    2)执行完毕,\开始\按钮变成\完成\,且无效。

    Private Sub COMEXIT_Click()

    End

    End Sub

    Private Sub COMSTART_Click()

    Dim i As Integer

    Dim total As Integer

    Dim aver As Single

    Dim num(10), namstring(10), sexstring(10), wages(10)

    ' MyFile1 = App.Path & \ “worker.dat”

    ' 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 averNext i

    'COMSTART.Caption = “完成”

    'COMSTART.Enabled = fault

    End Sub

    Private Sub Label2_Click()

    End Sub

    12.在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即'号),但不能修改其它部分。存盘时不得改变文件夹和文件名。

    本题描述如下:

    窗体上有一个名称为Text1的文?#31350;潁?#20004;个复选框,名称分别为Ch1和Ch2,标题分别为\爱心社\和\学通社\。要求程序运行后,如果只选中Ch1,单击窗体,则在文?#31350;?#20013;显示\报名参加爱心社\;如果只选中Ch2,然后单击窗体,则在文?#31350;?#20013;显示\报名参加学通社\;如果同时选中 Ch1 和Ch2,单击窗体,则在文?#31350;?#20013;显示\报名参加爱心社和学通社\; 如果Ch1和Ch2都不选取,在单击窗体后,则在文?#31350;?#20013;什么都不显示。

    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,标题分别为\操作系统\、\数据库原理\、\概?#20107;踈,字体大小均为14,其中\概?#20107;踈被禁用。

    *注意:

    保存时必须存放在考生文件夹下,窗体文件名为wy15.frm,工程文件名为wy15.vbp。

    答案:Private Sub Form_Load()

    Check3.Enabled = False

    End Sub

    15. 在考生文件夹下有一个工程文件sj113.vbp,其窗体上画有2个名称分别为

    Text1、Text2的文?#31350;潁?#20854;中Text1可多行显示。请画2个名称为Command1、

    Command2,标题为\产生数组\、\查找\的命令按钮。如图所示。程序功

    能如下:

    1)单击\产生数组\按钮,则用随机函数生成10个0~100之间(不含0和

    100)互不相同的数值,并将它们保存到一维数组a中,同时也将这10个

    数值显示在Text1文?#31350;?#20869;;

    2)单击\查找\按钮将弹出输入对话框,接收用户输入的任意一个数,并

    在一维数组a中查找该数,若查找失败,则在Text2文?#31350;?#20869;显示该数\

    不存在于数组中\;否则给出该数在数组中的位置。

    要求:

    请去掉程序中的注释符,把程序中的 ?改为正确的内容,使其实现上述

    功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的

    文件按原文件名存盘。

    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求数组的最大值,请装入该文件。程

    序运行后,在四个文?#31350;?#20013;各输入一个整数,然后单击命令按钮,即可求

    出数组的最大值,并在窗体上显示出来(如图所示)。这个程序不完整,

    请把它?#38057;?#23436;整,并能正确运行。

    要求:

    去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功

    能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

    盘。

    Option Base 1

    Private Function FindMax(a() As Integer)

    Dim Start As Integer

    Dim Finish As Integer, i As Integer

    Start = LBound(a)

    Finish = UBound(a)

    Max = a(Start)

    For i = Start To Finish

    If a(i) > Max Then Max = a(i)

    Next i

    FindMax = Max

    End Function

    Private Sub Command1_Click()

    Dim arr1

    Dim arr2(4) As Integer

    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

    For i = 1 To 4

    arr2(i) = CInt(arr1(i))

    Next i

    M = FindMax(arr2)

    Print \最大值是: \

    End Sub

    17. 15(1)在考生文件夹下有一个工程文件sj10.vbp,窗体上有一个单选按钮数组,含三个单选按钮,均没有标题,请利用属性窗口,为单选按钮?#26469;?#28155;加标题为“?#26412;薄ⅰ吧?#28023;”、“广州?#20445;?#20877;添加一个标题为“显示”的命令按钮,如图所示。程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在窗体上显示“我的出生地是?#26412;薄ⅰ?#25105;的出生地是上海”或“我的出生地是广州”。要求:1) ?#26469;?#28155;加单选按钮标题为“?#26412;薄ⅰ吧?#28023;”、“广州?#20445;?#35774;初始选中的是“广州?#20445;?#28155;?#29992;?#20196;按钮标题为“显示”。2) 去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。

    Private Sub C1_Click()

    For i = 0 To 2

    If Op1(i).value = True Then

    Print \我的出生地是\caption

    End If

    Next

    End Sub

    18.在名称为Form1的窗体上画一个文?#31350;潁?#21517;称为Text1,Text属性为“国?#20445;現ontName属性为“黑体?#20445;?#21644;一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动条设置如下属性:

    Min 10

    Max 100

    LargeChange 5

    SmallChange 2

    编?#35789;实?#30340;事件过程。程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小文?#31350;?#20013;的“国”字。运行后的窗体如图2所示。要求程序中得使用任何变量。

    *注意存盘时必须存放在考生文件夹下,工程文件名为sj20.vbp,窗体文件名为sj20.frm。

    解析

    Private Sub HScroll1_Change()

    Text1.fontsize=hscroll1.value

    end Sub

    19. 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

    (1)在Form1的窗体上建立一个主菜单,标题为\操作\,名称为Op,该菜单有两个子菜单,其标题分别为\显示\和\清除\,其名称分别为 Dis和Clea,编?#35789;实?#30340;事件过程。程序运行后,如果单击\操作\菜单中的\显示\命令,则在窗体上显示\等级考试\;如果单击\清除\命令,则清除窗体上显示的内容。程序的运行情况如图所示。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt13.vbp,窗体文件名为sjt13.frm。

    Private Sub Clea_Click()

    Cls

    End Sub

    Private Sub Dis_Click()

    Print \等级考试\

    End Sub

    20. 在考生文件夹下有一个工程文件sj43.vbp,请在窗体上画两个单选按钮(

    名称分别为Option1和Option2,标题分别为“添加项目”和?#21543;?#38500;项目”

    ),一个列表框(名称为List1)和一个文?#31350;潁?#21517;称为Text1),如图1

    所示。编写窗体的Click事件过程。程序运行后,如果选择“添加项目”

    单选按钮,然后单击窗体,则从键盘上输入要添加的项目(内容任意,不

    少于三个),并添加到列表框中;如果选择?#21543;?#38500;项目”单选按钮,然后

    单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的

    运行情况如图2所示。

    在考生文件夹下的工程文件sj43.vbp(相应的窗体文件名为sj43.frm),

    可以实现上述功能。但这个程序不完整,请把它?#38057;?#23436;整。

    要求:

    去掉程序中的注释符,把程序中的?改为?#23454;?#30340;内容,使其正确运行,

    但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    图1 图2

    Private Sub Form_Click()

    If Option1.Value = True Then

    Text1.Text = InputBox(\请输入要添加的项目\

    List1.AddItem Text1.Text

    End If

    If Option2.Value = True Then

    Text1.Text = InputBox(\请输入要删除的项目\

    For i = 0 To List1.ListCount - 1

    If List1.List(i) = Text1.Text Then

    List1.RemoveItem i

    End If

    Next i

    End If

    End Sub

    21. 在考生文件夹下有一个工程文件sj44.vbp(相应的窗体文件名为sj44.frm

    ),其功能是通过调用过程Sort将数组按降序排序,请装入该文件。程序

    运行后,在四个文?#31350;?#20013;各输入一个整数(如图1所示),然后单击命令

    按钮,即可使数组按降序排序,并在文?#31350;?#20013;显示出来(如图2所示)。

    这个程序不完整,请把它?#38057;?#23436;整,并能正确运行。

    要求:

    去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功

    能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

    盘。

    图1

    Private Sub Sort(a() As Integer)

    Dim Start As Integer, Finish As Integer

    Dim i As Integer, j As Integer, t As Integer

    Start = LBound(a)

    Finish = UBound(a)

    For i = Finish To 2 Step -1

    For j = 1 To Finish - 1

    If a(j) < a(j + 1) Then

    t = a(j + 1)

    a(j + 1) = a(j)

    a(j) = t

    End If

    Next j

    Next i

    End Sub

    22.其功能是产生30个0~999的随机整数,放入一个数组中,然后输出其中

    的最小值。程序运行后,单击命令按钮(名称为Command1,标题为\输

    出最小值\),即可求出其最小值,并在窗体上显示出来(如图所示)。

    这个程序不完整,请把它?#38057;?#23436;整,并能正确运行。

    要求:

    去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功

    能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

    盘。

    Private Sub Command1_Click()

    Dim arrN(30) As Integer

    Dim Min As Integer

    Randomize

    For i = 1 To 30

    arrN(i) = Int(Rnd * 1000)

    Next i

    Min = arrN(1)

    For i = 2 To 30

    If Min > arrN(i) Then

    Min = arrN(i)

    End If

    Next i

    Print Min

    End Sub

    23. 在名称为Form1的窗体上画一个标签(名称为Label1,标题为“输入信息

    ?#20445;?#19968;个文?#31350;潁?#21517;称为Text1,Text属性为空白)和一个命令按钮(

    名称为Command1,标题为“显示?#20445;?#22914;图1所示。然后编写命令按钮的

    Click事件过程。程序运行后,在文?#31350;?#20013;输入“计算机等级考试?#20445;?#28982;

    后单击命令按钮,则标签和文?#31350;?#28040;失,并在窗体上显示文?#31350;?#20013;的内容。

    运行后的窗体如图2所示。要求程序中不得使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sj19.vbp,窗体文件

    名为sj19.frm。

    Private Sub Command1_Click()

    Label1.Visible = False

    Text1.Visible = False

    Print Text1.Text

    End Sub

    24. 在名称为Form1的窗体上画一个文?#31350;潁?#20854;名称为Text1,然后通过属性窗

    口设置窗体和文?#31350;?#30340;属性,实现如下功能:

    1)在文?#31350;?#20013;可以显示多行文本

    2)在文?#31350;?#20013;显示垂直滚动条

    3)文?#31350;?#20013;显示的初?#22841;?#24687;为“程序设计”

    4)文?#31350;?#20013;显示的字体为三号规则黑体

    5)窗体的标题为?#21543;?#32622;文?#31350;?#23646;性”

    完成设置后的窗体如图所示。

    要求:

    不编写任何代码。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sj29.vbp,窗体文件

    名为sj29.frm。

    新建一个工程,在窗体上添加一个文?#31350;騎ext1,并将其MultiLine属性设置为True,ScrollBars属性设置为2-Vertical,Text属性设置为“程序设计?#20445;現ontName设置为“黑体?#20445;現ontSize设置为“三号”。再选中窗体,设置其Caption属性为?#21543;?#32622;文?#31350;?#23646;性”。

    最后按照题目要求保存文件即可。

    25. 在名称为Form1的窗体上画两个命令按钮(见图1),其名称分别为Cmd1

    和Cmd2,编?#35789;实?#30340;事件过程。程序运行后,如果单击命令按钮Cmd1,则

    可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现);如果

    单击命令按钮Cmd2,则可使该按钮在长度和宽度?#32454;?#25193;大到原来的2倍。

    程序的运行情况如图2所示。

    要求:

    不得使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sj30.vbp,窗体文件

    名为sj30.frm。

    Private Sub Cmd1_Click()

    Cmd1.Left = 0

    Cmd1.Top = 0

    End Sub

    Private Sub Cmd2_Click()

    Cmd2.Height = Cmd2.Height * 2

    Cmd2.Width = Cmd2.Width * 2

    End Sub

    26. 在Form1的窗体上画一个名称为P1的图片框,然后建立一个主菜单,标题为\操作\,名称为Op,该菜单有两个子菜单,其标题分别为\显示\和\清除\,名称分别为Dis和Clea,编?#35789;实?#30340;事件过程。程序运行后,如果单击\操作\菜单中的\显示\命令,则在图片框中显示\等级考试\;如果单击\清除\命令,则清除图片框中的信息。程序的运行情况如图所示。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt15.vbp,窗体文件名为sjt15.frm。程序中不得使用任何变量。

    Private Sub Clea_Click()

    P1.Cls

    End Sub

    Private Sub Dis_Click()

    P1.Print \等级考试\

    End Sub

    27. 在Form1的窗体上画一个列表框,名称为L1,通过属性窗口向列表框中添加4个项目,分别为\、\、\和\,编?#35789;实?#30340;事件过程,过程中只能使用一条命令。程序运行后,如果双击列表框中的某一项,则把该项添加到列表框中。程序的运行情况如图所示。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt16.vbp,窗体文件名为sjt16.frm。

    Private Sub L1_DblClick()

    L1.AddItem L1.Text

    End Sub

    28. 在Form1的窗体上画一个标签,其名称为Lab1;再画一个列表框,其名为L1,通过属性窗口向列表框中添加若干个项目,每个项目的具体内容不限,编?#35789;实?#30340;事件过程。程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt14.vbp,窗体文件名为sjt14.frm。

    Private Sub L1_DblClick()

    Lab1.Caption = L1.ListCount

    End Sub

    29. 在考生文件夹下有一个工程文件Sj5.vbp,请在窗体上画两个框架,其名

    称分别为F1和F2,标题分别为“交通工具”和“到达目标”。在F1中画两

    个单选按钮,名称分别为Op1和Op2,标题分别为“飞机”和“火车”。在

    F2中画两个单选按钮,名称分别为Op3和Op4,标题分别为“广州”和“昆

    明”。画一个标签,其名称为Lab1,宽度为3000,高度为375。编?#35789;实?p> 事件过程。程序运行后,选择不同单选按钮时产生的显示结果见下表

    程序的运行情况如图所示。存盘时,工程文件名为Sj5.vbp,窗体文件名

    为Sj5.frm。

    注意:

    考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必

    须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的

    关闭按钮。

    Private Sub Form_Click()

    If Op1.Value = True Then

    If Op3.Value = True Then

    Lab1.Caption = \坐飞机去广州\

    ElseIf Op4.Value = True Then

    Lab1.Caption = \坐飞机去昆明\

    End If

    ElseIf Op2.Value = True Then

    If Op3.Value Then

    Lab1.Caption = \坐火车去广州\

    ElseIf Op4.Value = True Then

    Lab1.Caption = \坐火车去昆明\

    End If

    End If

    End Sub

    30. 在考生文件夹下有一个工程文件sj6.vbp,请在窗体上画二个文?#31350;潁?#20854;

    名称分别为Text1、Text2,文?#31350;?#20869;容分别设置为“等级考试”、“计算

    机”。然后画一个标签,其名称为 Lab1,高度为375,宽度为2000。再画

    两个单选按钮,名称分别为Op1和Op2,标题分别为“交换”和“连接?#20445;?p> 最后再画一个命令按钮,其名称为C1,标题为“确定?#20445;?#32534;?#35789;实?#30340;事件

    程序。程序运行后,如果选中“交换”单选按钮并单击“确定”按钮,则

    Text1文?#31350;?#20013;内容与Text2文?#31350;?#20013;内容进行交换,并在标签处显示“交

    换成功?#20445;?#22914;图所示);如果选中“连接”单选按钮并单击“确定”按钮

    后,则把交换后的Text1和Text2的内容连接起来,并在标签处显示连接后

    的内容。存盘时,工程文件名为Sj6.vbp,窗体文件名为sj6.frm。

    注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单

    选按钮,并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关

    闭按钮,否则可能无成绩。

    Private Sub C1_Click()

    If Op1.Value=1 Then

    Text1.Text = \计算机\

    Text2.Text = \等级考试\

    Lab1.Caption = \交换成功\

    Else

    Lab1.Caption = Text1.Text + Text2.Text

    End If

    End Sub

    31. 在名称为Form1的窗体上画一个名称为C1、标题为\改变颜色\的命令按

    钮,窗体标题为\改变窗体背?#21543;玕。编写程序,使得单击命令按钮时,

    将窗体的背?#25226;?#33394;改为红色(&HFF&)。运行程序后的窗体如图所示。

    要求:

    程序中不得使用变量,每个事件过程中只能写一条语句。存盘时必须存

    放在考生文件夹下,工程文件名为sj106.vbp,窗体文件名为sj106.frm。

    Private Sub C1_Click()

    Form1.BackColor = &HFF&

    End Sub

    32. 在考生文件夹下有一个工程文件sj114.vbp,窗体如图所示。运行程序时,从

    数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并

    统计不?#26696;瘛?0~69、70~79、80~89及90~100各分数段的人数,将统计

    结果显示在相应的文?#31350;?#20013;。结束程序之前,必须单击\保存\按钮,保存

    统计结果。

    注意:

    不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将

    统计结果显示在文?#31350;?#20013;,再按\保存\按钮保存数据,否则无成绩。

    最后把修改后的文件按原文件名存盘。

    答案:\统计\按钮的主要代码如下:

    Private Sub Command1_Click()

    Dim a As Integer, b As Integer, c As Integer

    Dim d As Integer, e As Integer, i As Integer

    Dim score As Single

    For i = 1 To n

    score = arr(i)

    Select Case score

    Case Is < 60

    a = a + 1

    Case 60 To 69

    b = b + 1

    Case 70 To 79

    c = c + 1

    Case 80 To 89

    d = d + 1

    Case Else

    e = e + 1

    End Select

    Next i

    Text1.Text = n

    Text2.Text = a

    Text3.Text = b

    Text4.Text = c

    Text5.Text = d

    Text6.Text = e

    End Sub

    33. 在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,

    共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、

    “计算机?#20445;?#20854;中“语文”、“计算机” 复选框处在选中状态下,运行

    时的窗体如图所示。 请画控件并设置相应属性。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sj21.vbp,窗体文件

    名为sj21.frm。

    新建一个名为Form1的窗体,点击工具箱中的CheckBox控件图标,然后在窗体上拖拉出一个复选框,通过属性窗口设置其Name属性为“CH1”。

    选中“CH1”控件,执行“编辑”菜单中的?#26696;?#21046;”命令(热键为Ctrl+C),随后选中Form1窗体,执行“编辑”菜单中的“?#31243;?#21629;令(热键为Ctrl+V),将显示一个对话框,询?#36866;?#21542;建立控件数组,选择“是”按钮,则可以建立控件数组的第二个元素。重复执行上述操作,可以建立控件数组的第三个元素,第四个元素。

    通过属性窗口,按索引顺序由小到大设置控件数组中的各控件的Caption属性为“数学”、“语文”、“外语”和“计算机?#20445;?#24182;将“语文”和“计算机”控件的Value属性设置为1。

    按要求保存文件即完成本题。

    34. 在名称为Form1的窗体上画一个名称为HS1的水平滚动条,其刻度值?#27573;?p> 为 1~100;画一个命令按钮,名称为C1,标题为“移动滚动框”。请编

    ?#35789;实?#30340;事件过程,使得在运行时,每单击命令按钮一次( 假定单击次

    数少于10次 ),滚动框向右移动10个刻度。运行时的窗体如图所示。

    要求程序中不得使用变量,事件过程中只能写一条语句。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sj22.vbp,窗体文件

    名为sj22.frm。

    Private Sub C1_Click()

    HS1.Value = HS1.Value + 10

    End Sub

    35. 在考生文件夹下有一个工程文件sj49.vbp。窗体中已经给出了所有控件(如图所示)。请编?#35789;实?#30340;事件过程完成以下功能:单击“读数”按钮,则把考生文件夹下的inab5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第1个素数,并显示在Text2中;单击?#25353;?#30424;”按钮,则把找到的素数存到考生文件夹下的outab5.txt文件中。

    注意:在结束程序运行之前,必须单击?#25353;?#30424;”按钮,把结果存入outab5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。

    答案:Private Sub Command1_Click()

    Open \

    Input #1, a%

    Text1.Text = a%

    Close #1

    End Sub

    Private Function Check(i As Integer) As Boolean

    For j = 2 To CInt(Sqr(i)) + 1

    If i Mod j = 0 Then

    Check = False

    Exit Function

    End If

    Next j

    Check = True

    End Function

    Private Sub Command2_Click()

    Dim i As Integer

    i = CInt(Text1.Text)

    If i Mod 2 = 0 Then

    i = i + 1

    Else

    i = i + 2

    End If

    Do Until Check(i)

    i = i + 2

    Loop

    Text2.Text = i

    End Sub

    Private Sub Command3_Click()

    Open \

    Print #1, Text2.Text

    Close #1

    End Sub

    36. 在名称为Form1的窗体上画一个文?#31350;潁?#20854;名称为T1,宽度和高?#30830;?#21035;为1400为400;再画两个命令按钮,其名称分别为C1和C2,标题分别为\显示\和\扩大\,编?#35789;实?#30340;事件过程。程序运行后,如果单击C1命令按钮,则在文?#31350;?#20013;显示\等级考试\,如图所示;如果单击C2命令按钮,则使文?#31350;?#22312;高、宽方向?#32454;?#22686;加一倍,文?#31350;?#20013;的字体大小扩大到原来的2倍。

    Private Sub Command1_Click()

    Text1.Text = \等级考试\

    End Sub

    Private Sub Command2_Click()

    Text1.Width = Text1.Width * 2

    Text1.Height = Text1.Height * 2

    Text1.FontSize = Text1.FontSize * 2

    End Sub

    37. 在考生文件夹下有一个工程文件sj76.vbp,相应的窗体文件为sj76.frm,在窗体上有一个命令按钮(名称为Command1,标题为\计算并输出\)和两个文?#31350;潁?#21517;称分别为Text1和Text2),如图所示。程序运行后,单击命令按钮,即可计算出数组Arr中10个数的正数之和pos与负数之和neg,并分别在两个文?#31350;?#20013;显示出来。该程序不完整,请把它?#38057;?#23436;整。

    Private Sub Command1_Click()

    Dim Arr

    Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)

    pos = 0

    neg = 0

    For k = 1 To 10

    If Arr(k) >= 0 Then

    pos = pos + Arr(k)

    Else

    neg = neg + Arr(k)

    End If

    Next k

    Text1.Text = \正数之和为:\

    Text2.Text = \负数之和为:\

    End Sub

    38. 在考生文件夹下有一个工程文件sj18.vbp(相应的窗体文件名为sj18.frm),其功能是通过调用过程Average求数组的平均值,请装入该文件。程序运行后,在四个文?#31350;?#20013;各输入一个整数,然后单击命令按钮,即可求出数组的平均值,并在窗体上显示出来(如图所示)。这个程序不完整,

    请把它?#38057;?#23436;整,并能正确运行。

    Private Function Average(a() As Integer) As Single

    Dim Start As Integer, Finish As Integer

    Dim i As Integer

    Dim Sum As Integer

    Start = LBound(a)

    Finish = UBound(a)

    Sum = 0

    For i = Start To Finish

    Sum = Sum + a(i)

    Next i

    Average = Sum / Finish

    End Function

    39. 在窗体(名称为Form1,KeyPreview属性为True)上画一个列表框(名称为 List1)和一个文?#31350;潁?#21517;称为Text1),如图1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果按“D”键,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图 2所示。在考生文件夹下有一个工程文件sj17.vbp(相应的窗体文件名为sj17.frm),可以实现上述功能。但这个程序不完整,请把它?#38057;?#23436;整。

    要求:去掉程序中的注释符,把程序中的?改为?#23454;?#30340;内容,使其正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    图1 图2

    解题方法:

    打开工程文件sjt3.vbp和相应的窗体文件名为sjt3.frm,点击工具箱中的ListBox和TextBox控件图标,然后在窗体上拖拉出一个列表框、一个文?#31350;頡?#25171;开代码窗口,?#38057;?#22914;下的代码:

    Private Sub Form_KeyDown(KeyCode As Integer, _

    Shift As Integer)

    If Chr(KeyCode) = \

    Text1.Text = InputBox(\请输入要添加的项目\

    List1.AddItem Text1.Text

    End If

    If Chr(KeyCode) = \

    Text1.Text = InputBox(\请输入要删除的项目\

    For i = 0 To List1.ListCount

    If List1.List(i) = Text1.Text Then

    List1.RemoveItem i

    End If

    Next i

    End If

    End Sub

    40. 在考生文件夹下有工程文件wy60.vbp及窗体文件wy60.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即 '号),但不能修改其它部分。存盘时不得改变文件名和文件夹。

    本题描述如下:

    在名称为Form1的窗体上有一个Label控件,4个Text控件及7个命令按钮,功能如下:

    1)开始启动工程时,界面上除\开始录入\及\退出\按钮之外,其它按钮均不可用(灰色显示)。

    2)单击\开始录入\按钮之后,利用INPUTBOX让用户连续且必须录入 10个数。若录入为非数字符号,则给出警告\输入数据无效,请重新输入数值数据,请输入第n个数\。

    3)录入完毕后,\开始录入\变灰,其它变为可用状态。

    4)按相应的按钮可分别求出所录入数据的\升序\、\降序\排列及\最大数\和\最小数\并在右侧对应的文?#31350;?#20013;显示。(注意用A(10)存放最大数,A(1)存放最小数)

    5)单击\清除\按钮将所有文?#31350;?#28165;空。

    For i = 1 To N-1

    For j = i + 1 To N

    If Val(a(j)) < Val(a(i)) Then

    TEMP = a(j)

    a(j) = a(i)

    a(i) = TEMP

    End If

    Next j

    Next i

    41. 在名称为Form1的窗体上画一个文?#31350;潁?#21517;称为Text1;再画一个命令按 钮,名称为C1,标题为\移动\(如图所示)。请编?#35789;实?#30340;事件过程,使得在运行时,单击\移动\按钮,则文?#31350;?#27700;平移动到窗体的最左端。程序中不得使用任何变量。

    *注意:

    存盘时必须存放在考生文件夹下,工程文件名为sjt6.vbp,窗体文件名为sjt6.frm。

    Private Sub C1_Click()

    Text1.Left = 0

    End Sub

    42. 在名称为Form1的窗体上画二个文?#31350;潁?#21517;称分别为T1、T2,初始情况下都没有内容。请编?#35789;实?#30340;事件过程,使得在运行时,在T1中输入的任何字符,立即显示在T2中(如图所示)。程序中不得使用任何变量。

    Private Sub T1_Change()

    T2.Text = T1.Text

    End Sub

    44.在考生文件夹中有工程文件wy70.vbp及其窗体文件wy70.frm ,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即'号)但不能修改其它部分。存盘时不得改变文件名和文件夹。

    本题描述如下:在窗体有三个复选框,名称分别为 Ch1、Ch2和Ch3,标题?#26469;?#20026;\体育\、\音乐\、\美术\,还有一个命令按钮,名称为C1,标题为\显示\。

    要求程序运行后,如果选中某个复选框,则当单击\显示\命令按钮时,则显示相应的信息。例如,如果选中\体育\和\音乐\复选框,则单击\显示\命令按钮后,在窗体上显示\我的爱好是体育音乐\(如图所示);而如果选中\体育\、\音乐\和\美术\复选框,则单击\显示\按钮后,在窗体上显示\我的爱好是体育音?#32622;?#26415;\。

    Option Explicit

    Private Sub C1_Click()

    Dim s As string

    s = \我的爱好是\

    If Ch1.Value = 1 Then

    s = s + Ch1.Caption

    End If

    If Ch2.Value = 1 Then

    s = s + Ch2.Caption

    End If

    If Ch3.Value = 1 Then

    s = s + Ch3.Caption

    End If

    ' Print s

    End Sub

    Private Sub Form_Load()

    End Sub

    45. 在考生文件夹下有一个工程文件sj35.vbp,它的功能是在文?#31350;?#20013;输入一

    个整数,单击“移动”按钮后,如果输入的是正数,滚动条中的滚动框向

    右移动与该数相等的刻度,但如果超过了滚动条的最大刻度,则不移动,

    并且显示“文?#31350;?#20013;的数值太大?#20445;?#22914;果输入的是负数,滚动条中的滚动

    框向左移动与该数相等的刻度,但如果超过了滚动条的最小刻度,则不移

    动,并且显示“文?#31350;?#20013;的数值太小?#20445;?#22914;图所示。

    要求:去掉程序中的注释符,把程序中的 ?改为正确的内容,使其实现

    上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后

    把修改后的程序以原来的文件名存盘。

    Private Sub C1_Click()

    If HS1.Value + Text1.Text > HS1.Max Then

    MsgBox \文?#31350;?#20013;的数值太大\

    ElseIf HS1.Value + Text1.Text < HS1.Min Then

    MsgBox \文?#31350;?#20013;的数值太小\

    Else

    HS1.Value = HS1.Value + Text1.Text

    End If

    End Sub

    46. 在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即'号),但不能修改其它部分。存盘时不得改变文件夹和文件名。

    本题描述如下:

    窗体上有一个名称为Text1的文?#31350;潁?#20004;个复选框,名称分别为Ch1和Ch2,标题分别为\爱心社\和\学通社\。要求程序运行后,如果只选中Ch1,单击窗体,则在文?#31350;?#20013;显示\报名参加爱心社\;如果只选中Ch2,然后单击窗体,则在文?#31350;?#20013;显示\报名参加学通社\;如果同时选中 Ch1 和Ch2,单击窗体,则在文?#31350;?#20013;显示\报名参加爱心社和学通社\; 如果Ch1和Ch2都不选取,在单击窗体后,则在文?#31350;?#20013;什么都不显示。

    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

    48. 在考生文件夹下有一个工程文件sj11.vbp,请在Form1窗体中画三个标签,名称分别为B1、B2、L1,标题分别为“字号”、“字体”、“计算机等级考试?#20445;?#20854;中L1的高为500,宽为3000;再在B1、B2标签的下面画两个组合框,名称分别为Cb1、Cb2,并为Cb1添加项目:“10”、“15”、“20?#20445;?#20026;Cb2添加项目:“黑体”、“隶书”、“宋体”,以上请在设计时实现。请编?#35789;实?#30340;事件过程,使得在运行时,当在Cb1中选一个字号、在Cb2中选一个字体,标签L1中的文字立即变为选定的字号和字体。如图所示。

    注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘,程序中不能使用任何变量。

    Private Sub Combo1_Click()

    Dim i As Integer

    For i = o To 2

    Label3.FontSize = Combo1

    Next i

    End Sub

    Private Sub Combo2_Click()

    Dim i As Integer

    For i = o To 2

    Label3.Font = Combo2

    Next i

    End Sub

    49. 在考生文件夹下有一个工程文件sj46.vbp,相应的窗体文件为sj46.frm, 在窗体上有一个命令按钮和一个文?#31350;頡?#31243;序运行后,单击命令按钮,即可计算出0~1000?#27573;?#20869;不能被7整除的整数的个数,并在文?#31350;?#20013;显示出来。 在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的 整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。

    要求:请勿改动程序中的任?#25991;?#23481;,只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

    Function Fun()

    Dim i As Integer, num As Integer

    For i = 0 To 1000

    If i Mod 7 <> 0 Then

    num = num + 1

    End If

    Next i

    Text1.Text = num

    End Function

    在考生文件夹下有一个工程文件sj49.vbp。窗体中已经给出了所有控件(如图所示)。请编?#35789;实?#30340;事件过程完成以下功能:单击“读数”按钮,则把考生文件夹下的inab5.txt文件中的一个整数放入Text1;单击“计算”按钮,则计算出大于该数的第1个素数,并显示在Text2中;单击?#25353;?#30424;”按钮,则把找到的素数存到考生文件夹下的outab5.txt文件中。

    注意:在结束程序运行之前,必须单击?#25353;?#30424;”按钮,把结果存入outab5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。

    Private Sub Command1_Click()

    Open \

    Input #1, a%

    Text1.Text = a%

    Close #1

    End Sub

    Private Function Check(i As Integer) As Boolean

    For j = 2 To CInt(Sqr(i)) + 1

    If i Mod j = 0 Then

    Check = False

    Exit Function

    End If

    Next j

    Check = True

    End Function

    Private Sub Command2_Click()

    Dim i As Integer

    i = CInt(Text1.Text)

    If i Mod 2 = 0 Then

    i = i + 1

    Else

    i = i + 2

    End If

    Do Until Check(i)

    i = i + 2

    Loop

    Text2.Text = i

    End Sub

    Private Sub Command3_Click()

    Open \

    Print #1, Text2.Text

    Close #1

    End Sub

    在考生文件夹下有工程文件wy57.vbp及窗体文件wy57.frm,该程序是不完整的,请在有?号的地?#25945;?#20837;正确内容,然后删除?#32771;?#25152;有注释符(即 '号),但不能修改其它部分。存盘时不得改变文件名和文件夹,相应的dat文件也保存到考生文件夹下,否则没有成绩。

    本题描述如下:

    在名称为Form1的窗体上有五个Label控件和两个命令按钮, 数据文件grade.dat存放一些成绩。

    1)按\开始\按钮后,从考生文件夹下的grade.dat中读出数据并求出它们的平均数,将结果写入考生文件夹下的average.dat文件中;

    2)执行完毕,\开始\按钮变成\完成\,且无效(变灰)

    Private Sub COMEXIT_Click()

    End

    End Sub

    Private Sub COMSTART_Click()

    Dim g As Single, N As Integer, S As Single

    myfile1 = App.Path & \

    myfile2 = App.Path & \

    'Open myfile1for input as #1

    'Open myfile2for input as #2

    Do While Not EOF(1)

    ' Input ?, g

    N = N + 1

    S = S + g

    Loop

    Close #1

    'S = S / ?

    'Write #2,

    Close

    'COMSTART.Caption = “完成

    'COMSTART.Enabled = false

    End Sub

    Private Sub Form_Load()

    End Sub

    在名称为Form1的窗体上画一个命令按钮,其名称为C1,标题为“移动?#20445;?#20301;于窗体的左上部,如图1所示,编?#35789;实?#30340;事件过程。程序运行后,每单击一次窗体,都使得命令按钮同时向右、向下移动100。程序的运行情况如图2所示。

    要求: 1)不得使用任何变量;

    2)存盘时必须存放在考生文件夹下,工程文件名为sj60.vbp,窗体文件名为sj60.frm。

    图1

    Private Sub Command1_Click()

    Command1.Left = Command1.Left + 100 '100 twips

    Command1.Top = Command1.Top + 100

    End Sub

    在考生文件夹下有一个工程文件sj61.vbp,相应的窗体文件为sj61.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“添加?#20445;?#26377;一个文?#31350;潁?#21517;称为Text1,初始内容为空白; 此外还有一个列表框,其名称为List1。程序运行后,如果在文?#31350;?#20013;输入一个英文句子( 由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图所示。该程序不完整,请把它?#38057;?#23436;整。

    要求:去掉程序中的注释符,把程序中的 ?改为正确的内容, 使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    Private Sub Command1_Click()

    Dim S1 As String, S2 As String

    Dim I1 As Integer

    ' S1 =text1.text

    I1 = 1

    Do

    ' Do While Mid(S1, I1, 1) <> “ “ And I1 <= Len(S1)

    S2 = S2 & Mid(S1, I1, 1)

    I1 = I1 + 1

    Loop

    ' List1.AddItem s2

    ' S2 = “”

    I1 = I1 + 1

    Loop While I1 <= Len(S1)

    End Sub

    Private Sub Form_Load()

    End Sub

    在考生文件夹下有一个工程文件sj62.vbp,相应的窗体为sj62.frm。窗体中有一个名称为Command1的命令按钮和一个名称为Timer1的计时器。请在窗体上画一个标签(名称为Label1,标题为“请输入一个正整数?#20445;?#20877;画一个文?#31350;潁?#21517;称为 Text1,初始内容为空白)。已经给出了相应的事件过程。程序运行后, 在文?#31350;?#20013;输入一个正整数,此时如果按回车键,则可使文?#31350;?#20013;的数?#32622;?#38548;0.3秒减 1(倒计数);当减到0时,倒计数停止,清空文?#31350;潁?#24182;把焦点移到文?#31350;?#20013;。

    要求:去掉程序中的注释符,把程序中的 ?改为正确的内容, 使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    Private Sub Command1_Click()

    Timer1.Enabled = True

    End Sub

    Private Sub Form_Load()

    End Sub

    Private Sub Timer1_Timer()

    ' If Val(text1.text) = 0 Then

    Text1.Text = \

    ' Timer1.enabled = False

    ' Text1.setfocus

    Else

    Text1.Text = Str(Val(Text1.Text) - 1)

    End If

    End Sub

    在考生文件夹下有一个工程文件sj53.vbp,窗体上已经画出所有控件。如图所示。在Text1文?#31350;?#20013;输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的 3个截取运算选项之一。单击“计算”按钮,将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。

    Dim is_num As Boolean

    Private Sub Command1_Click()

    Dim tmpStr As String * 50

    'Select Case cobmo1.listcount

    Case 0

    tmpStr = Left(Trim(Text1.Text), 3)

    Case 1

    tmpStr = Right(Trim(Text1.Text), 3)

    Case 2

    'tmpStr = Mid(Trim(Text1.Text), 3,4)

    End Select

    'Text2.Text = tmpstr

    End Sub

    Private Sub Form_Load()

    End Sub

    在考生文件夹下有一个工程文件sj52.vbp,窗体上有一个命令按钮Command1(标题为“下一个?#20445;?

    要求:在窗体上建立一个单选按钮数组Option1,含4个单选按钮,标题分别为“选项1”、“选项2”、“选项3”、“选项4?#20445;?#21021;始状态下,“选择1”为选中状态。如图所示。 窗体文件中已经给出了命令按钮的Click事件过程,但不完整, 请去掉程序中的注释符,把程序中的 ?改为正确的内容,使得每单击命令按钮一次,就选中下一个单选按钮,如果已经选中最后一个单选按钮,再单击命令按钮,则选中第1个单选按钮。

    注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

    Private Sub Command1_Click()

    ' For k = 0 To3

    If Option1(k).Value Then

    ' n =k

    End If

    Next k

    Option1(n).Value = False

    n = n + 1

    If n = 4 Then

    ' n = 0

    End If

    Option1(n).Value = True

    End Sub

    Private Sub Form_Load()

    End Sub

    在考生文件夹下有一个工程文件sj58.vbp,相应的窗体文件为sj58.frm。在窗体上有一个命令按钮, 其名称为Command1,标题为“输入/显示?#20445;?#27492;外还有一个文?#31350;潁?#20854;名称为Text1,初始内容为空白。程序的功能是,程序运行后,单击命令按钮,显示输入对话框,在对话框中输入某个月份的数值(1~12), 然后单击“确定”按钮,即可在文?#31350;?#20013;输出该月份所在的季节。例如输入5,将输出“5月份是夏季?#20445;?#22914;图所示。该程序不完整,请把它?#38057;?#23436;整。

    要求:去掉程序中的注释符,把程序中的 ?改为正确的内容, 使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

    将语句

      'Loop Until ? And n < 13

      改为

      Loop Until n > 0 And n < 13

      2) 将语句

      'Select Case ?

      改为

      Select Case n

      3) 将语句

      'Select Case ?

      改为

      Select Case m

    vb的操作题(有答案).doc

    vb的操作题(有答案) - 1.(1)在考生文件夹中有工程文件sj126.vbp...

    vb新操作题(含答案).doc

    vb新操作题(含答案) - 一、操作题,每题 10分,6 题共60分 【第4题】...

    vb16道操作题(含答案):.doc

    vb16道操作题(含答案): - Vb 操作题 第 1 页 共 8 页 (新)0...

    VB复习题(含答案).doc

    VB复习题(含答案)_高等教育_教育专区。VB期末考试复习专题,含答案。 第一部分:单选,填空,程序填空,读程序写结果 VB 考试一 1、能?#25442;?#24471;一个文?#31350;?#20013;被选取文本......

    VB操作题答案.doc

    VB操作题答案 - 第一次作业 Private Sub Command1_Click() Text1.Text = 欢迎你学习 VB 程序设计 Text1.ForeColor = vbGreen......

    VB试题(附带答案).doc

    VB试题(附带答案) - VB 试题 一、 基本概念及基本操作 1、如果要向工具...

    全国VB二级操作试题及答案2016.doc

    全国VB二级操作试题及答案2016 - 一、基本操作题 (1)在名称为 Form...

    VB24题操作题答案.doc

    VB24题操作题答案_IT?#29616;资格考试/?#29616;教育专区。visual basic操作题 1、编写程序,使用多分支(Select Case)语句结构对输入的学生成绩给出A、B、C和D四个 ......

    VB练习题(上机)含答案.doc

    VB练习题(上机)含答案 - 第一部分 1 在窗体上添加一个命令按钮(名称为Cm...

    VB程序习题集(附答案).doc

    VB程序习题集(附答案) - VB 简介 1、在以下有关对象属性的叙述中,不正确...

    VB选择题(含答案)_按章节.doc

    VB选择题(含答案)_按章节 - 第1章 第2章 第3章 A.DOS Visua...

    VB操作题.doc

    VB操作题 - 一、 考试题程序 1、启动 VB,打开工程文件“C:\MyExam\VB52.vbp”,完成如下算法设计: 已知变量 x 的值是 345,下列程序的功能是求 x 的各位......

    信息技术会考模拟练习vb操作题答案.doc

    信息技术会考模拟练习vb操作题答案 - 06 信息技术会考模拟练习 vb 操作题答案 此处插入 a=1;方法:将光 标置于“b”的左边,按回车 Val(text1.text) () Val......

    21VB B卷操作题参考答案.doc

    21VB B卷操作题参考答案 - 三、操作题 题有2处错 处错, 题 处错 每改对一处错得2.5 处错; 2.5分 (一)程序调试题(第1题有 处错,第2题3处错,第3......

    VB测试题(一)及答案.doc

    VB测试题(一)及答案 - 测试题(一) 一:选择题 1)VB 是一?#32622;?#21521;对象的可视化程序设计语言,采取了( A:事件驱动 C:从主程序开始执行 2)在 VB 中最基本的......

    VB期末考试试题及答案.doc

    此试题是我们学校往年的VB期末考试试题及答案。希望对大家有用。。 ...4、方法是 VB 提供的一种 特殊子程序 ,用来完成一定的操作。 5、浮点类型......

    vb试题和答案.doc

    vb试题和答案 - 1.工程文件的扩展名是 vbp。 2.VB 中若要产生一个消...

    VB程序试题(附答案).doc

    VB程序试题(附答案) 隐藏>> VB 程序测试题一、单选题(每题 1 分) : 1....在 VB 程序设计中, ?#20405;?#29992;户操作引发或由系统引发,能被对象所识别 并做出响应......

    VB程序习题集(附答案).doc

    既可以进行读操作,也可以进行写操作 5、设有语句 Open “d:\Test.txt” For...·选择题 VB 简介 1.C 6.B 2.C 7.A 3.C 8.D 4.A 9.B 5.C 10......

    vb常用控件__练习题(含答案).doc

    vb常用控件__练习题(含答案) - 第九章 控件综合试题 一、填空题 1. 在图片框上放置的控件称为图片框的(子)对象,而窗体是图片框的(父)对象。 2.窗体的“......

    2015?#19981;?#30465;NCRE二级VB最新考试试题库(完整版).txt

    2015?#19981;?#30465;NCRE二级VB最新考试试题库(完整版)_韩语学习_外语学习_教育专区。2015...以上答案都不是 37、LINUX是一种( B ) A、数据库管理系统 B、微机操作系统......

    信息安全答案.txt

    (导致系统进入被入侵状态必须执行的操作/特征事件);...宏病毒特点:只感染微软数据(文档)文件机制:用VB高级...信息安全复习题(含答案) 暂无评价 24页 30.00......

    宁夏银川二中2010届高三第二?#25991;?#25311;考试物理(含答案).txt

    vB = 3 : 2 C. v A : vB = 3 : 1 第∏...“b”); 在该电路中,为了操作方便且能准确地进行...(二)试题 理科综合能力测?#22278;?#32771;答案 题号 答案 14......

    《会计电算化》分章练习2及答案.txt

    A.FOXPRO B.C语言 C.计算机语言 D.VB 13.?#23435;?..( ) 4.每个操作员必须有自己的操作会计软件的密码...( ) [习题答案 ] 1 一、 单项选择题 1.C 2.......

    access数据库程序设计教程答案.txt

    access数据库程序设计教程答案 - 虽说不上标准,但也算可以了。... access数据库程序设计教程答案_管理学_高等教育_...网页中的默认脚本语言是VBScript(VB编程系统的子......

    c++语言程序设计教程答案 - 百度文库.txt

    C.VB D.C 3.下列关于类的描述中,错误的是( ...√ 24.表达式中各操作数计算顺序取决于运算符的优先...2.3 填空题 1.C++语言中,基本数据类型包含有整型......

    全国计算机等级考试VB二级?#36866;?#22797;习方法.txt

    “以教科书为本”,认真复习并做到以?#24405;?#28857;,通过二级VB?#36866;?#36824;是有比较大的希望的...5和6 【答案】B【分析】本题中的X是窗体级变量,所以X在过程之间传递参数时......

    vb的操作题(有答案).doc

    vb的操作题(有答案) - 1.(1)在考生文件夹中有工程文件sj126.vbp...

    vb新操作题(含答案).doc

    vb新操作题(含答案) - 一、操作题,每题 10分,6 题共60分 【第4题】...

    vb16道操作题(含答案):.doc

    vb16道操作题(含答案): - Vb 操作题 第 1 页 共 8 页 (新)0...

    VB复习题(含答案).doc

    VB复习题(含答案)_高等教育_教育专区。VB期末考试复习专题,含答案。 第一部分:单选,填空,程序填空,读程序写结果 VB 考试一 1、能?#25442;?#24471;一个文?#31350;?#20013;被选取文本......

    VB操作题答案.doc

    VB操作题答案 - 第一次作业 Private Sub Command1_Click() Text1.Text = 欢迎你学习 VB 程序设计 Text1.ForeColor = vbGreen......

    VB试题(附带答案).doc

    VB试题(附带答案) - VB 试题 一、 基本概念及基本操作 1、如果要向工具...

    全国VB二级操作试题及答案2016.doc

    全国VB二级操作试题及答案2016 - 一、基本操作题 (1)在名称为 Form...

    VB24题操作题答案.doc

    VB24题操作题答案_IT?#29616;资格考试/?#29616;教育专区。visual basic操作题 1、编写程序,使用多分支(Select Case)语句结构对输入的学生成绩给出A、B、C和D四个 ......

    VB练习题(上机)含答案.doc

    VB练习题(上机)含答案 - 第一部分 1 在窗体上添加一个命令按钮(名称为Cm...

    VB程序习题集(附答案).doc

    VB程序习题集(附答案) - VB 简介 1、在以下有关对象属性的叙述中,不正确...

    VB选择题(含答案)_按章节.doc

    VB选择题(含答案)_按章节 - 第1章 第2章 第3章 A.DOS Visua...

    VB操作题.doc

    VB操作题 - 一、 考试题程序 1、启动 VB,打开工程文件“C:\MyExam\VB52.vbp”,完成如下算法设计: 已知变量 x 的值是 345,下列程序的功能是求 x 的各位......

    信息技术会考模拟练习vb操作题答案.doc

    信息技术会考模拟练习vb操作题答案 - 06 信息技术会考模拟练习 vb 操作题答案 此处插入 a=1;方法:将光 标置于“b”的左边,按回车 Val(text1.text) () Val......

    21VB B卷操作题参考答案.doc

    21VB B卷操作题参考答案 - 三、操作题 题有2处错 处错, 题 处错 每改对一处错得2.5 处错; 2.5分 (一)程序调试题(第1题有 处错,第2题3处错,第3......

    VB测试题(一)及答案.doc

    VB测试题(一)及答案 - 测试题(一) 一:选择题 1)VB 是一?#32622;?#21521;对象的可视化程序设计语言,采取了( A:事件驱动 C:从主程序开始执行 2)在 VB 中最基本的......

    VB期末考试试题及答案.doc

    此试题是我们学校往年的VB期末考试试题及答案。希望对大家有用。。 ...4、方法是 VB 提供的一种 特殊子程序 ,用来完成一定的操作。 5、浮点类型......

    vb试题和答案.doc

    vb试题和答案 - 1.工程文件的扩展名是 vbp。 2.VB 中若要产生一个消...

    VB程序试题(附答案).doc

    VB程序试题(附答案) 隐藏>> VB 程序测试题一、单选题(每题 1 分) : 1....在 VB 程序设计中, ?#20405;?#29992;户操作引发或由系统引发,能被对象所识别 并做出响应......

    VB程序习题集(附答案).doc

    既可以进行读操作,也可以进行写操作 5、设有语句 Open “d:\Test.txt” For...·选择题 VB 简介 1.C 6.B 2.C 7.A 3.C 8.D 4.A 9.B 5.C 10......

    2015?#19981;?#30465;NCRE二级VB最新考试试题库(完整版).txt

    2015?#19981;?#30465;NCRE二级VB最新考试试题库(完整版)_韩语学习_外语学习_教育专区。2015...以上答案都不是 37、LINUX是一种( B ) A、数据库管理系统 B、微机操作系统......

    信息安全答案.txt

    (导致系统进入被入侵状态必须执行的操作/特征事件);...宏病毒特点:只感染微软数据(文档)文件机制:用VB高级...信息安全复习题(含答案) 暂无评价 24页 30.00......

    宁夏银川二中2010届高三第二?#25991;?#25311;考试物理(含答案).txt

    vB = 3 : 2 C. v A : vB = 3 : 1 第∏...“b”); 在该电路中,为了操作方便且能准确地进行...(二)试题 理科综合能力测?#22278;?#32771;答案 题号 答案 14......

    《会计电算化》分章练习2及答案.txt

    A.FOXPRO B.C语言 C.计算机语言 D.VB 13.?#23435;?..( ) 4.每个操作员必须有自己的操作会计软件的密码...( ) [习题答案 ] 1 一、 单项选择题 1.C 2.......

    access数据库程序设计教程答案.txt

    access数据库程序设计教程答案 - 虽说不上标准,但也算可以了。... access数据库程序设计教程答案_管理学_高等教育_...网页中的默认脚本语言是VBScript(VB编程系统的子......

    c++语言程序设计教程答案 - 百度文库.txt

    C.VB D.C 3.下列关于类的描述中,错误的是( ...√ 24.表达式中各操作数计算顺序取决于运算符的优先...2.3 填空题 1.C++语言中,基本数据类型包含有整型......

  • 本文相关:
  • Vb操作题题库(含答案)
  • vb操作选择题及答案
  • VB操作题
  • vb新操作题(含答案)
  • vb作业题1—参考答案
  • 上海计算机VB二级 A卷操作题参考答案
  • 全国计算机 二级 VB上机操作题 题目答案及解析
  • 上海计算机VB二级 B卷操作题参考答案
  • vb上机综合操作题
  • 计算机vb基础考试操作题
  • www.36037731.com true http://www.36037731.com/wendangku/z5s/f59g/jcf0594daefv/k5ef7ba0d3c46l.html report 68685 1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体如图所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中\查找最大值\(或\查找最小值\)单选按钮,再单击\查找\按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。请去掉程序中的注释符,把程序中的 ?改为正确的内容。注意:考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。Private Sub Command1_Click()x = a
    • 猜你?#19981;?/li>
    • 24小时热文
    • 本周热评
    图文推荐
    • 最新添加
    • 最热文章
    精?#37322;?#33616;
    读过此文的还读过
    777788大丰收一波中特
  • 天津11选5开奖走势 賓利彩票 3438鉄算盘资料王中王743… 河南十一选五开奖公告 缤纷二分彩走势图 在水库用地笼捕鱼技巧 福彩3d跨度走势图200 广西快三投注时间 北京pk10几点封盘 贵州11选5投注技巧 喜乐彩票app打不开 南粤36选7技巧 3d奖号 v湖北快三走势图 大星彩票