单选题 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个 命令按钮(名称为Command1). 编写如下程序 Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Command1_Click() X=Val(Text1.Text) Y=Val(Text2.Text) Text3.Text=GCD(x,y) End Sub Function GCD(ByVal x As Integer,ByVal y As Integer) Do While y<>0 Tmp=x Mod y X=y Y=tmp Loop GCD=x End Function 运行程序,在Text1文本框中输入18,在Text2文本框中输入12, 然后单击命令按钮,则在Text3文本框中显示的内容是().
相关试题
单选题 有以下的语句: Option Base 1 Dim xscj(3,4,5) As String 声明的数组xscj有()个数组元素.
单选题 下列程序段的执行结果为(). Dim A(4) As Integer A(1) = 1 For k = 0 To 2 For i = 1 To k + 1 X = k + 2 - i A(X) = A(X) + A(X - 1) If k < 2 Then Exit For Print A(X); Next Next
单选题 Dim a(3,-3 To 0,3 To 6)As String语句定义的数组元素有().
单选题 下列程序的输出结果为(). Private Sub Command1_Click() Dim a(20) as Integer For j=1 To 20 Step 2 A(j)=j Next j Print a(1)+a(2)+a(3) End Sub
单选题 用语句Dim A (-3 To 7) As Integer定义的数组的元素个数是().
单选题 设有数组声明语句: Option Base0 Dim b(-l To 10,2 To 9,20)As Integer 则数组B中共有()个元素.
单选题 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a(4,4) As Integer For i=1 To 4 For j=1 To 4 A(i,j)=(i-1)∗3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Next i End Sub 程序运行后,单击命令按钮,其输出结果为().
单选题 语句Dim a&(1 T0 20),b#(2,-1 To 1)定义的两个数组,其类型区别为().
2023-12-14 
共723道