• 2021-04-14 问题

    下面过程运行后显示的结果是()。Private Sub f1(ByVal n%, m%)n = n Mod 10m = m 10End SubPrivate Sub Command1_Click()Dim x%, y%x = 12: y = 34Call f1(x, y)Print x, yEnd Sub

    下面过程运行后显示的结果是()。Private Sub f1(ByVal n%, m%)n = n Mod 10m = m 10End SubPrivate Sub Command1_Click()Dim x%, y%x = 12: y = 34Call f1(x, y)Print x, yEnd Sub

  • 2022-06-06 问题

    下面程序的输出结果是( )Private Sub proc(ch As String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1) Next k ch = sEnd SubPrivate Sub Command1_Click() ch$ = "ABCDEF" proc ch Print ch End Sub A: ABCDEF B: A C: FEDCBA D: F

    下面程序的输出结果是( )Private Sub proc(ch As String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1) Next k ch = sEnd SubPrivate Sub Command1_Click() ch$ = "ABCDEF" proc ch Print ch End Sub A: ABCDEF B: A C: FEDCBA D: F

  • 2022-06-06 问题

    在窗体上画 1 个文本框,其名称为 Text1,然后编写如下过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2)End Sub 程序运行后,把焦点移到文本框中,此时如果敲击"A"键,则输出结果为______。 A: A B: A C: A D: A

    在窗体上画 1 个文本框,其名称为 Text1,然后编写如下过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2)End Sub 程序运行后,把焦点移到文本框中,此时如果敲击"A"键,则输出结果为______。 A: A B: A C: A D: A

  • 2022-06-06 问题

    在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为()。 A: A A B: A B C: A C D: A D

    在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为()。 A: A A B: A B C: A C D: A D

  • 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: 程序有错

  • 2022-06-08 问题

    设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:Dim Flag As BooleanPrivate Sub Form_Load() Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index=1 Then If Flag=True Then Form2.show mnu1(1).Caption="隐藏窗体2" Flag=False Else Form2.Hide mnu1(1).Caption="显示窗体2" Flag=True End If End If If Index=2 Then EndEnd Sub关于上述程序,以下叙述中错误的是______。 A: Index属性的值可以用来区分控件数组元素 B: Index为1的菜单项的标题可能会改变 C: 两个名称均为Mnu1的菜单项构成一个控件数组 D: 语句Form2.Hide将Form2卸载

    设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:Dim Flag As BooleanPrivate Sub Form_Load() Flag=TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index=1 Then If Flag=True Then Form2.show mnu1(1).Caption="隐藏窗体2" Flag=False Else Form2.Hide mnu1(1).Caption="显示窗体2" Flag=True End If End If If Index=2 Then EndEnd Sub关于上述程序,以下叙述中错误的是______。 A: Index属性的值可以用来区分控件数组元素 B: Index为1的菜单项的标题可能会改变 C: 两个名称均为Mnu1的菜单项构成一个控件数组 D: 语句Form2.Hide将Form2卸载

  • 1