单项选择题

单击命令按钮，下列事件过程的执行结果为( )。　　 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． 0 8
B． 40 72
C． 4 50
D． 78 50

<上一题目录下一题>

热门试题

单项选择题

在窗体上画2个命令按钮,名称分别为Command1、Command2,并编写如下程序:Const n=5,m=4Dim a(m,n)Private Sub Command1-Click()k=1For i=1 To mFor i=1 To na(i,j)=kk=k+1Next j Next i End SubPrivate Sub Command2_Click()summ=0For i=1 To mFor i=1 To nIf i=1 or i=m Then summ=summ+a(i,j) ElseIf j=1 or j=n Then summ=summ+a(i,j) End IfEnd If Next jNext iPrint summ End Sub过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2-Click()的作用是【】

A．计算矩阵外围一圈元素的累加和
B．计算矩阵除外围一圈以外的所有元素的累加和
C．计算矩阵第1列和最后一列元素的累加和
D．计算矩阵第1行和最后一行元素的累加和

单项选择题

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（？）处应填入的内容是______。Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End SubPrivate Sub Text2_LostFocus() Call CheckInput(Text2,1000) End SubSub CheckInput(t As ,x As Integer) If Val(t.Text)>x ThenMsgBox 请重新输入！ End IfEnd Sub

A．Text
B．SelText
C．Control
D．Form

相关试题