• 2022-06-12 问题

    以下有关数组定义的语句序列中,错误的是______。 A: Static arr1(3)arr1(1)=100arr1(2)="Hello"arr1(3)=123.45 B: Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBox("输入:")ReDim arr2(size)……End Sub C: Option Base 1Private Sub Command3_Click()Dim arr3(3) As Integer…… End Sub D: Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As Integer……End Sub

    以下有关数组定义的语句序列中,错误的是______。 A: Static arr1(3)arr1(1)=100arr1(2)="Hello"arr1(3)=123.45 B: Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBox("输入:")ReDim arr2(size)……End Sub C: Option Base 1Private Sub Command3_Click()Dim arr3(3) As Integer…… End Sub D: Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As Integer……End Sub

  • 2022-06-19 问题

    下列程序代码将整型动态数组x定义为具有20个元素的数组(数组元素的下标从1到20),并给数组的所有元素赋值1。请完善程序。 Dim x( ) As IntegerPrivate Sub Cmd1_Click() ReDim For i = 1 To 20 x(i) = 1 Print x(i) Next iEnd Sub

    下列程序代码将整型动态数组x定义为具有20个元素的数组(数组元素的下标从1到20),并给数组的所有元素赋值1。请完善程序。 Dim x( ) As IntegerPrivate Sub Cmd1_Click() ReDim For i = 1 To 20 x(i) = 1 Print x(i) Next iEnd Sub

  • 2022-06-08 问题

    设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Command1_Chck()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是()。 A: 1 5 B: 0 5 C: 0 0 D: 程序有错

    设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Command1_Chck()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是()。 A: 1 5 B: 0 5 C: 0 0 D: 程序有错

  • 2022-06-08 问题

    设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1:y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是 A: 1 5 B: 0 5 C: 0 0 D: 程序有错

    设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:Public x As IntegerPrivate Sub Form_Load()x=1:y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下:Public y As Integer运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是 A: 1 5 B: 0 5 C: 0 0 D: 程序有错

  • 1