Vb十套模拟题答案.docVIP

Vb答案 第一套 1 在名称为 FORM1 的窗体上放置一个名为 TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。（如示例所示）*****注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下， 窗体文件名为SJT1.FRM，工程文件名为SJT1.VBP。 Private Sub Timer1_Timer() Text1.Text = Time End Sub 2 在窗体FORM1上画一个组合框，名称为CBO1,有“长跑”、“游泳”、“跳远”三个可供选择项。再画一个命令按钮，名称为CMD1,标题为“确定”。编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个消息框，内容为“您选择了(某项)”如[示例]。 注意： 1)程序中不得使用任何变量。 2)保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM,工程文件名为SJT2.VBP Private Sub Cmd1_Click() MsgBox 您选择了 CBO1.Text End Sub 3 在考生文件夹中有文件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 Sub 4 在窗体上画三个复选框，名称分别为CH1、CH2、CH3,标题依次为“体育”、“音乐”、“美术”；一个标签，名称为L1,标题为“爱好：”；还有一个命令按钮，名称为CMD1,标题为“显示”。要求程序运行后，如果选中某个复选框，则当单击“显示”命令按钮时，按照“示例”显示相应的信息。 在考生文件夹中已有工程文件SJT4.VBP以其窗体文件SJT4.FRM,该程序是不完整的，请在有？号的地方填入正确内容，然后删除？以其所有注释符（’）但不能修改其它部分。存盘时不得改变文件存放路径和文件名。 Private Sub Cmd1_Click() Cls 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 5 在考生文件夹下已有一个工程文件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 Integer Private Sub C1_Click() Call readNumb