第八章读程序题.docVIP

执行下面的程序段后，b的值为（5）P34 a 5:b 7:a a+b:b a-b:a a-b 2.执行下面的程序，消息框里显示的结果是（ abdb）P35 Private Sub Form_Click Dim Str As String,k As Integer Str ”ab” For k Len Str To 1 Step –1 Str StrChr Asc Mid Str,k,1 +k Next k MsgBox Str End Sub 3.在名为“Form1”的窗体上添 三个文本框和一个命令按钮，其名称分别为“Text1”、”Text2”、 ”Text3”和“Command1”,然后编写如下两个事件过程： Private Sub Command1_Click Text3 Text1+Text2 End Sub Private Sub Form1_Load Text1 ”” Text2 ”’ Text3 ”’ End Sub 打开窗体Form1后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入5 和7， 然后单击命令按钮Command1,则文本框（Text3）中显示的内容为（ 57 ） 4．执行下面的程序,消息框的输出结果是 33 Option Base 1 Private Sub Command1_Click Dim a 10 ,P 3 As Integer K 5 For I 1 to 10 A I I Next I For I 1 to 3 P I A I*I Next I For I 1 to 3 K k+P I *2 Next I MsgBox k End Sub 5.执行下面的程序段后,S的值为9 P38 s 5 For I 2.6 to 4.9 Step 0.6 s s+1 Next I 6.在窗体上画一个命令按钮，然后编写如下代码：P44 Private Sub Command1_Click Dim M 10 As Integer For k 1 to 10 M k 12-k Next k X 6 Msgbox M 2+M X End Sub 程序运行后，单击命令按钮，消息框显示的是（ 4 ）P45 7．在窗体上画一个命令按钮，然后编写如下程序： Function fun ByVal num As Long As Long Dim k As Long K 1 Num Abs num Do While num K k* num\10 Num num\10 Loop Fun k End Function Private Sub Command1_Click Dim n As Long Dim r As Long N InputBox “请输入一个数” N Clng n r fun n Msgbox r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为（ 0） 8．运行如下程序段： x 1 : y 1:z 1 For j 1 to 3 For k 1 to 3 If j 1 Then X x+y+z Elseif j 2 Then X 2*x+2*y+2*z Else X 3*x+3*y+3*z End if Next j X的值是（2346） 10．在窗体上画一个命令按钮，然后编写如下程序：P48 Dim x As Integer Sub inc a As Integer X x+a End Sub Private Sub Command1_Click Inc 2 Inc 3 Inc 4 Msgbox x; End Sub 程序执行后，单击Command1命令按钮，消息框显示结果是（ 9 ） 11．Private Sub Form_Click P55 Dim k As Integer,n AsInteger,m As Integer n 10:m 1:k 1 Do While K n M m*2 K k+1 Loop Msgbox m End Sub 12.在窗体上添加一个命令按钮（名为Command1）,然后编写如下程序：P55 Function m x As Integer,y As Integer As Integer m IIf x y,x,y End Function Private Sub Command1_Click Dim a As Integer, b As Integer a 1:b 2 MsgBox m a,b End Sub 打开窗体运行后，单击命令按钮，消息框中输出结果为（2 ）