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, d, e, m Call max m, f, f, m Text7.Text m End Sub 编程及上机调试 编写程序时一定要考虑到程序的优化问题.衡量程序优化的基本标准是采用好的算法、结构合理、简明易读、运行时间短和占用内存空间少。下面给出一个求解某个问题的程序，但运行时间比较长，请读者修改程序，并求出正确的答案。 把324表示为3个加数之和,使第一个加数能被23整除,第二个加数能被19整除,第三个加数能被43整除,求出这3个加数等于多少? Private Sub Form_Load show For a 1 to 324 For b 1 to 324 For c 1 to 324 if a Mod 23 0 And b Mod 19 0 And c Mod 43 0 _ And a+b+c 324 Then Print “这三个加数是：”;a,b,c End if Next c,b,a End Sub 单选题（29）在窗体上画出一个名称为command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun ByVal m As Integer If m Mod 2 0 Then fun 2 Else fun 1 End If End Function Private