Vb十套模拟题及答案

Vb答案第一套1 在名称为FORM1 的窗体上放置一个名为TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下，窗体文件名为SJT1.FRM，工程文件名为SJT1.VBP。

Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub2 在窗体FORM1上画一个组合框，名称为CBO1,有“长跑”、“游泳”、“跳远”三个可供选择项。

再画一个命令按钮，名称为CMD1,标题为“确定”。

编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个消息框，内容为“您选择了(某项)”如[示例]。

注意：1)程序中不得使用任何变量。

2)保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM,工程文件名为SJT2.VBPPrivate Sub Cmd1_Click()MsgBox "您选择了" & CBO1.TextEnd Sub3 在考生文件夹中有文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上画一个名称为TEXT1的文本框，小四号字，再画两个名称分别为CH1和CH2，标题分别为"C 程序设计"和"VB程序设计"的复选框，小四号字，一个名称为C1，标题为"确定"的命令按钮。

编写适当的事件过程，要求程序运行后，如果只选中CH1，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计";如果只选中CH2，然后单击"确定"命令按钮，则在文本框中显示"学习VB程序设计"；如果同时选中CH1和CH2，然后单击"确定"命令按钮，则在文本框中显示"学习C程序设计VB程序设计"。

Private Sub c1_Click()Text1 = "学习" & IIf(Ch1.Value = 1, Ch1.Caption, "") & IIf(Ch2.Value = 1, Ch2.Caption, "")End Sub4 在窗体上画三个复选框，名称分别为CH1、CH2、CH3,标题依次为“体育”、“音乐”、“美术”；一个标签，名称为L1,标题为“爱好：”；还有一个命令按钮，名称为CMD1,标题为“显示”。

要求程序运行后，如果选中某个复选框，则当单击“显示”命令按钮时，按照“示例”显示相应的信息。

在考生文件夹中已有工程文件SJT4.VBP以其窗体文件SJT4.FRM,该程序是不完整的，请在有？号的地方填入正确内容，然后删除？以其所有注释符（’）但不能修改其它部分。

存盘时不得改变文件存放路径和文件名。

Private Sub Cmd1_Click()ClsDim s As Strings = "我的爱好是"If Ch1.Value = 1 Thens = s + Ch1.CaptionEnd IfIf Ch2.Value = 1 Thens = s + Ch2.CaptionEnd IfIf Ch3.Value = 1 Thens = s + Ch3.CaptionEnd IfPrint sEnd Sub5 在考生文件夹下已有一个工程文件SJT5.VBP，相应的窗体文件为SJT5.FRM。

请在窗体上画一个文本框，名称为TEXT1,并设置适当的属性使得文本框允许输入多行文本，并具有垂直滚动条；再画两个命令按钮，名称分别为C1、C2，标题分别为“产生100个随机数”、“输出最小值”。

该程序的功能是产生100个0～1000的随机整数，放入一个数组中（数组下界从1开始），并且在文本框中显示出来，然后输出其中的最小值。

程序运行后，单击C1(程序中已有一READNUMBER过程可产生100个随机数并在文本框中显示出来，请调用),在文本框中显示随机产生的100个整数，单击C2(编写C2_CLICK()事件)，在文本框中输出其中最小值。

（注：“示例”中显示的随机数与实际产生的随机数有可能不一致）。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，并编写C2_CLICK()事件，使其实现上述功能，但不能修改程序中的其他部分。

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

注意：程序的其它部分不得改动，点击窗体上的“关闭”结束程序运行。

Dim a(1 To 100) As IntegerPrivate Sub C1_Click()Call readNumberEnd SubSub readNumber()Text1.Text = ""RandomizeFor i = 1 To 100a(i) = Int(Rnd * 1000)Text1.Text = Text1.Text & a(i) & " "Next iEnd SubPrivate Sub C2_Click()Min = a(1)For i = 1 To 100If a(i) < Min Then Min = a(i)Next iText1.Text = MinEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextOpen "[PA TH]get5.dat" For Output As #1C1_ClickPrint #1, Text1C2_ClickPrint #1, Text1Close #1End Sub第二套1 在窗体上画一条直线，名称为LINE1,同时，在窗体上拖拉出一个命令按钮，名称为CMD1,标题为"加粗"。

编写适当的事件过程，使程序运行后，如果单击CMD1命令按钮，直线的宽度值为10。

注意：1)不得使用任何变量,只能写一条语句。

2)保存时必须存放在考生文件夹下，窗体文件名为SJT1.FRM,工程文件名为SJT1.VBP。

Private Sub Cmd1_Click()Line1.BorderWidth = 10End Sub2 在考生文件夹下有一工程文件SJT2.VBP在名称为FORM1的窗体上有一个名称为P1的图片框，图片框中已放入一图片；请考生再画一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时；标题为“打开文件”，对话框的类型列表框为“WORD文档|*.DOC”，初始目录为"C:"。

再编写适当的事件过程，使得在运行时，单击P1图片框，可以打开上述对话框。

运行后的窗体如[示例]所示。

注意：只能写一条语句。

做完后按原名存盘。

程序中不得使用任何变量。

Private Sub p1_Click()Cd1.ShowOpenEnd Sub3 在考生文件夹下已有工程文件SJT3.VBP及窗体文件SJT31.FRM,SJT32.FRM,打开工程文件后请将SJT32.FRM添加进工程并设为启动窗体，将FORM1的标题栏设为“第一窗体”FORM2的标题栏设为“第二窗体”，在FORM1上画一列表框LIST1，在FORM2上画一文本框TEXT1,和一命令按钮C1标题为“添加到第一窗体”，当程序运行时FORM1随FORM2同时启动，当在FORM2的TEXT1中填写字符串后单击。

“添加到第一窗体”可将TEXT1的内容添加到FORM1的列表框LIST1中，如[示例]所示。

该程序是不完整的,请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹。

Private Sub c1_Click()Text1End SubPrivate Sub Form_Load()Form1.ShowEnd SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd Sub4 在窗体上画一个文本框，名称为TEXT1,内有一个黑体的“华”字。

再画一个水平滚动条，名称为HS1,在属性窗口中对水平滚动条设置如下的属性：MAX 80MIN 10LARGECHANGE 5SMALLCHANGE 2编写HS1_CHANGE()的事件过程，使程序运行后，如果移动水平滚动条上的滚动框，则可以扩大或缩小文本框中的汉字。

注意：1) 程序中不得有任何变量,且事件过程中只能编写一条语句。

2) 保存时必须存放在考生文夹下，窗体文件名为SJT4.FRM,工程文件名为SJT4.VBPPrivate Sub HS1_Change()Text1.FontSize = HS1.ValueEnd Sub5 在考生文件夹下有一个工程文件SJT5.VBP及其窗体文件SJT5.FRM,在窗体上画两个复选框，名称分别为CH1、CH2,标题依次为“粗体”、“斜体”在窗体上再画一标签LABEL1,标题为“计算机中心”居中显示，三号字，运行后如果选择了“粗体”或“斜体”或单击列表框中的某种字体标签中的文字也产生相应的变化（如：示例）。

该程序是不完整的,请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。

存盘时不得改变文件名和文件夹。

Private Sub ch1_Click()Label1.FontBold = Ch1.ValueEnd SubPrivate Sub ch2_Click()Label1.FontItalic = Ch2.ValueEnd SubPrivate Sub List1_Click()Label1.FontName = List1.TextEnd Sub第三套1 在名称为FORM1的窗体上画一个文本框，名称为TEXT1,其初始内容为0，居中，小四号字；再画一个命令按钮，名称为COMMAND1,标题为“开始计数”；再画一个名称为TIMER1的计时器，要求程序开始运行时不计数，单击“开始计数”按钮后，则使文本框中的内容每秒加1，（以上均在属性窗口设定）；编写COMMAND1和TIMER1的事件过程完成上述要求（每过程只写一条语句，不得使用变量）。