单项选择题

单击命令按钮，下列事件过程的执行结果为( )。 　　 Private Sub Command1_Click( ) 　　　　Dim x As Integer, y As Integer 　　　　x=40：y=72 　　　　Call PtoP(x, y) 　　　　Print x; y 　　 End Sub 　　 Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) 　　　　n = n \ 10+2 　　　　m = m \ 10+2 　　 End Sub

A．[Page]/，总[Pages]
B．=[Page]/，总[Pages]
C．[Page]＆“//，总”＆ [Pages]
D．=[Page]＆“/，总”＆[Pages]
<上一题 目录 下一题>
热门 试题

单项选择题
设有如下程序：Option Base 1Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integern=InputBox(“输入数据”)If n<10 ThenCall GetArray(a，n)End IfEnd SubPrivate Sub GetArray(b( )As Integer，n As Integer)Dim c(10) As Integerj=0For i=1 To nbb(i)=CInt(Rnd( )*100)If b(i) 2=b(i) 2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是（ ）。
A．数组b的偶数被保存在数组c中
B．程序运行结束时，在窗体上显示的是c数组中元素的个数
C．GetArray过程的参数n是按值传送的
D．如果输入的数据大于10，则窗体上不显示任何信息
单项选择题
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1 的计时器控件，并把其Interval属性设置为500，如图所示: 编写如下程序：Private Sub Form_Load( )Timer1．Enabled=falseEnd SubPrivate Sub Command1 Click( )Timer1．Enabled=TrueEnd SubPrivate Sub Timer1_Timer( )If Label1．Left＜Width ThenLabel1．Left=label1．Left+20ElseLabel1．Left=0End IfEnd Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。
A．标签的移动方向为自右向左
B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动
C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动
D．标签按指定的时间间隔移动
相关试题