您所在的当前位置： 计算机等级考试题库   >  
BASIC题库  
  >  [问答题] 在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下： Dim a%,b As Boolean Private Sub C1_Click() ’ Timer2.Enabled= b=True End Sub Private Sub Timer1_Timer() a=a+1 If a＞6 Then a=1 End If Select Case a Case 1P1.Picture=LoadPicture("黄灯.ico" ) Case 2,3P1.Picture=LoadPicture("红灯.ico") Case 4,5,6 ’ P1.Picture=LoadPicture("")If b Then Timer2.Enabled=True End Select End SubPrivate Sub Timer2_Timer()If (a＜4) And (P2.Left＞P1.Left And P2.Left＜P1.Left+P1.Width)Or P2.Left＜=100 Then’ Timer2.Enabled=Else’ P2.Move —10,P2.Top,P2.Width,P2.HeightEnd IfEnd Sub
问题：
发布时间：2022-07-01

[问答题] 在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下： Dim a%,b As Boolean Private Sub C1_Click() ’ Timer2.Enabled= b=True End Sub Private Sub Timer1_Timer() a=a+1 If a＞6 Then a=1 End If Select Case a Case 1P1.Picture=LoadPicture("黄灯.ico" ) Case 2,3P1.Picture=LoadPicture("红灯.ico") Case 4,5,6 ’ P1.Picture=LoadPicture("")If b Then Timer2.Enabled=True End Select End SubPrivate Sub Timer2_Timer()If (a＜4) And (P2.Left＞P1.Left And P2.Left＜P1.Left+P1.Width)Or P2.Left＜=100 Then’ Timer2.Enabled=Else’ P2.Move —10,P2.Top,P2.Width,P2.HeightEnd IfEnd Sub

参考答案：
题目声明 提问用户：aw***Foh
可能感兴趣的题目：

1

[单项选择题] 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_ Load () Show Text1.Text=" " Text1.SetFocusEnd SubPrivate Sub Command1_ Click() Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为 ______。


A．vbVB
B．不显示任何信息
C．VB
D．出错

2

[问答题] 下面是一个Applet程序，其功能是打印一个任意进制的乘法表。要求输入乘法表的进制，点击确定则打印出该乘法表。请改正程序中的错误(有下画线的语句)，使程序能输出正确的结果。 注意：不改动程序的结构，不得增行或删行。 import java.awt.*； import java.applet.*； import java.lang.*； public class exl2_3 extends Applet{ private TextField tf； private Button btn； public void init(){tf=new TextField(25)；add(tf)；btn=new Button("确定")；add(btn)；resize(250，200)； } public void paint(Craphics g){try{int n= tf.getText()；int i,j,x=20,y=60；for(i=0;i＜n;++){for(j=1;j＜=n;j++){ g．drawString(Integer.toString(i)+"*" +Integer.toString(j)+"=" +Integer.toString(i*j)，i*x,j*y)； } } } catch(NuaberFormatEXCeption nfe){ g.drawString("error namber!",20,50)； } } public boolean action(Event e，Object o){ if(o=="确定"){repaint()；return true； } elsereturn false；} } exl2_3.html ＜HTML＞ ＜HEAD＞ ＜TITLE＞exl2_3＜/TITLE＞ ＜/HEAD＞ ＜BODY＞ ＜applet code="exl2_3.class"width=800 height=400＞ ＜/applet＞ ＜/BODY＞ ＜/HTMI＞

3

[单项选择题] Applet可以做下列哪些操作( )


A．调用用户计算机上的系统去执行其他的应用程序
B．访问用户的文件系统
C．装入用户计算机上以其他程序语言所写的应用程序或函数库
D．读取客户端部分系统变量

4

[填空题] 下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click() n=0 for a= 1 To 49 b= 【14】 c= Gcd (a, b) if c Mod 3= 0 then 【15】 Print a, b, c End if Next a Print nEnd Sub

5

[填空题] 以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)～A(10)依次赋给B(1，1)～B(1，10)，把A(11)～A(20)依次赋给B(2，1)～B(2，10)，……，把A(91)～A(100)依次赋给B(10，1)～B(10，10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10, 1 To 10) As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To (8)
For j=1 To (9)
B(i,j)= (10)
Print B(i,j)
Next j
Print
Next i
End Sub

6

[单项选择题] 软件需求说明书是需求分析阶段的最后成果，以下( )是其应包括的内容。 Ⅰ．数据描述 Ⅱ．功能描述 Ⅲ．性能描述 Ⅳ．文件结构


A．Ⅰ和Ⅱ
B．Ⅱ和Ⅲ
C．Ⅱ和Ⅵ
D．Ⅰ、Ⅱ和Ⅲ

7

[填空题] 执行下面的程序段，x的值为　【7】　。
　　Private Sub Command1_Click()
　　　For i=1 To 9
　　　　　a=a + i
　　　Next i
　　　x=Val(i)
　　　MsgBox x
　　End Sub

8

[问答题] return true;

9

[填空题] 在程序的空白行处填写适当的语句，完成下列功能；依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。
Do While List2.ListCount
______
List2.RemoveItem0
Loop

10

[填空题] 请完善程序(程序文件名：Java_2.java)并进行调试。请在下画线处填入正确内容，然后删除下画线。请勿删除注释行和其他已有的语句内容。
[题目要求]
完善程序，使程序运行结果如下图所示。

源程序：
import java.awt.*；
import java.awt.event.*；
import javax.swing.*；
public class Java_2
　public static void main(String[] args)
　　RadioButtonFrame frame=new RadioButtonFrame()；
　　frame．setDefauhCloseOperation(JFrame.EXIT_ON_CLOSE)；
　　 (1) ；
　　

class RadioButtonFrame extends JFrame
　public RadioButtonFrame()
　　setTitle("Radio按钮实例")；
　　setSize(DEFAULT_WIDTH，DEFAULT_HEIGHT)；
　　Container contentPane=getContentPane()；
　　label=new JLabel("热烈庆祝Java程序语言开考三周年")；
　　label.setForeground(Color.yellow)；
　　contentPane.setBackground(Color.red)；<