a= Right(x, Il) b= Mid(x, 7, 5) End Sub 运行程序后单击命令按钮,以下叙述中错误的是()。 A)信息框的标题是 Basic B)信息框中的提示信息是 Programming C)c的值是函数的返回值 D) Msg Box的使用格式有错 (25)设工程文件包含两个窗体文件 Form1. frm、Form2.frm及一个标准模块文件 Module l bas。两个窗体上分别只有一个名称为 Command l的命令按钮。 Forml的代码如下 Public x as integer Private Sub Form Load y=5 End Sub Private Sub Command1 Click Form2 Show End Sub Form2的代码如下: Private Sub Commandl Click Print Forml.x,y End Sub Module l的代码如下: Public y As Integer 运行以上程序,单击Fom1的命令按钮 Command1,则显示Fom2:再单击Form2上 的命令按钮 Command1,则窗体上显示的是()。 A)15 B)05 )00 D)程序有错 (26)窗体上有一个名称为Text1的文本框,一个名称为 Command 1的命令按钮。窗体文 件的程序如下 Private Type x a as Integer b As Integer nd Type Private Sub Commandl Click ya=InputBox(") If y a \2=ya/2 Then 二级Ⅴ isual Basic语言程序设计试卷第4页(共10页)二级 Visual Basic 语言程序设计试卷 第 4 页（共 10 页） a = Right(x, 11) b = Mid(x,7,5) c = MsgBox(a, ,b) End Sub 运行程序后单击命令按钮，以下叙述中错误的是（ ）。 A）信息框的标题是 Basic B）信息框中的提示信息是 Programming C）c 的值是函数的返回值 D）MsgBox 的使用格式有错 （25）设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas。两个窗体上分别只有一个名称为 Command1 的命令按钮。 Form1 的代码如下： Public x As Integer Private Sub Form_Load() x = 1 y = 5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2 的代码如下： Private Sub Command1_Click() Print Form1.x, y End Sub Module1 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上 的命令按钮 Command1，则窗体上显示的是（ ）。 A）1 5 B）0 5 C）0 0 D）程序有错 （26）窗体上有一个名称为 Text 1 的文本框，一个名称为 Command1 的命令按钮。窗体文 件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a = InputBox("") If y.a \ 2 = y.a / 2 Then y.b = y.a * y.a Else y.b = Fix(y.a / 2)