VB教程第章课堂讨论++.pptVIP

第7章 习题讨论 单选题 补充1. 假设已通过下列Sub语句定义了SubA过程。若要调用该过程，可以采用______语句。 Sub SubA(x As Integer） A. Print SubA(20) B. Call SubA(50000) C. y = SubA(700) D. SubA 32000 2．下面程序运行的结果是 Private Sub Form_Load() Show Dim x As Integer, x1 As Integer x = 5: x1 = 4 Call Ktest(x, x1) Print x; x1; Call Ktest(x, x1) Print x; x1 End Sub Sub Ktest(ByVal t As Integer, t1 As Integer) t = t + 5 t1 = t1 + t * 2 End Sub A. 10? 14? 25? 39 B. 5 24? 44? 5 C. 5? 24? 5? 44 D. 10? 24? 15? 44 在窗体上已经建立了一个文本框Text1和一个命令按钮(Command1)，运行程序后单击命令按钮，则在文本框Text1中显示的内容是 Dim a As Integer 模块级变量 Private Sub Command1_Click() Dim b As Integer, c As Integer a = 2: b = -1 Call MySub(b, c) c = c + b:Call MySub(c, b) a = a + c Text1.Text = a + b + c End Sub Sub MySub(ByVal x, y) Dim b As Integer a = x + a + b x = 2 * a + x y = x + 1 End Sub 编程及上机调试 第1题 1. 设计一个能检查是否为数字字符串的通用过程，调用该过程检验三个文本框中输入的字符是否都是数字。如果都是数字，则求这三个数字之和并把结果显示在第4个文本框中。 Private Sub Command1_Click() Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If che(a) And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else Text4.Text = 存在非数字字符 End If End Sub 编程及上机调试 第2题 2 .编写一个标准模块，该模块包含一个能比较3个数大小和送回大数的Sub过程。调用该过程来求6个数的最大数。利用文本框控件数组和文本框来分别输入数据和输出最大数。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) Call max(a, b, c, m) Call max(m,