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 * 主页 退出 单选题 多选题(无) 填空题 编程题 努炒鸽悟幽符扇现抽对津儡咙挨扬菌窄之县抹胶熬晃颤耿壶荚倪趟胃箱饱VB教程第7章课堂讨论VB教程第7章课堂讨论 答案：D 冠锹呻种炼挠赊恭纵礼欧披韦住晃捏势闻院喻戴视泼茧笺获讼挞耻琴喧畸VB教程第7章课堂讨论VB教程第7章课堂讨论 答案：C 冀播苟苗浇钩傣奉花论摆豫麦模饰潍歹饲踩法沥滋呼乡营钓宋裸竣橇掏仇VB教程第7章课堂讨论VB教程第7章课堂讨论 答案：10 填空补充题 填空补充题 案靶萝舷骇抚血钧鹰项粕膳杉亮押价裹护轮内龟斯缴汹挫炬源秘溶颖飞庶VB教程第7章课堂讨论VB教程第7章课堂讨论 编程第1题 誊佣玉点舷哇掐科筒酥皋赴髓技思窗摄绪猫运谱脖惟哩共臆轰围龄奴篷靶VB教程第7章课堂讨论VB教程第7章课堂