程序运行后,单击命令按钮,输出结果为()。 A)12 B)15 D)18 (26)下列关于过程的叙述中,错误的是() A)事件过程是由某个事件触发而执行的过程 函数过程的返回值可以有多个 可以在事件过程中调用通用过程 D)不能在事件过程中定义函数过程 (27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令 按钮(名称为 Command1),外观如图所示 s FormI x 第一个数第二个数结果 编写下列程序: Private Sub Form Load() TextI.Text=“ Iext2.Text=“ Text3.Text=“ End Sub Private Sub Commandl Click() =Val(TextI Text) Text3Text=f(x,y) End Sub Function f(By Val x As Integer, By Val y As Integer) Do While you tmp=x Mod y End Function 运行程序,在 TextI文本框中输入36,在Text2文本框中输入24,然后单击命令按钮 则在Text3文本框中显示的内容是()。 A)4 B)6 C)8 D)12 (28)窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text中输入的数据小 于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现以上功能 在下列程序中问号(?)处应填入的内容是( Private Sub TextI LostFocus() End Sub 二级 Visual basic语言程序设计试卷第6页(共11页)二级 Visual Basic 语言程序设计试卷 第 6 页（共 11 页） 程序运行后，单击命令按钮，输出结果为（ ）。 A）12 B）15 C）17 D）18 （26）下列关于过程的叙述中，错误的是（ ）。 A）事件过程是由某个事件触发而执行的过程 B）函数过程的返回值可以有多个 C）可以在事件过程中调用通用过程 D）不能在事件过程中定义函数过程 （27）在窗体上画 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=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x End Function 运行程序，在 Text1 文本框中输入 36，在 Text2 文本框中输入 24，然后单击命令按钮， 则在 Text3 文本框中显示的内容是（ ）。 A）4 B）6 C）8 D）12 （28）窗体上有名称分别为 Text1、Text2 的 2 个文本框，要求文本框 Text1 中输入的数据小 于 500，文本框 Text2 中输入的数据小于 1000，否则重新输入。为了实现以上功能， 在下列程序中问号（?）处应填入的内容是（ ）。 Private Sub Text1_LostFocus( ) Call CheckInput(Text1,500) End Sub