计算机程序设计
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） Private Sub Command1_Click（） x=InputBox（"请输入整数"）a=F1（Val（x）） Print a End Sub Function F1（ByRef b As Integer） If b Mod 2=0 Then F1=0 Else F1=1 End If End Funct
题目
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） Private Sub Command1_Click（） x=InputBox（"请输入整数"）a=F1（Val（x）） Print a End Sub Function F1（ByRef b As Integer） If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
- A、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0
- B、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1
- C、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回1，否则返回0
- D、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回0，否则返回1
相似问题和答案
第1题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 2
For J=1 To I
Print String(I，"Hello")；
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．H HH HH
B．H HHHH
C．HHHHH
D．H HH HHHH
解析：Click事件是在按钮控件上按下然后释放一个鼠标按钮时发生。Print函数用于在指定窗口显示文本。 String函数返回包含指定长度重复字符的字符串。题中嵌套For循环，第一次"i=1"，故"for j=1 to 1"，输出"H"，内层J循环结束，输出空行。第二次"i=2"，故"for j=1 to 2"，内层J循环2次，输出"HHHH"，内层J循环结束，输出空行，I循环结束。
第2题：
在窗件上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a=12345 Print Format S(a, "000. 00") End Sub 程序运行后，单击命令按钮，窗体上显示的是______。
A．123.45
B．12345.00
C．12345
D．00123.45
解析：在使用Format函数使数值按“格式字符串”指定的格式输出时，符号“#”和“0”都是用于数字的输出，其个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示，但这两个功能的区别在于，“#”显示的多余的位不补0，“0”显示的多余的位以0补齐。
第3题：
在窗体上画1一个名称为Command1的命令按钮，并编写以下程序
Private Sub Command1_Click（）
Print fun（“ABCDEFG”）
End Sub
Function fun（st As String） As String
stlen=Len（st）
temp=””
For k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是（ ）。
A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED
第4题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如卞程序：
Private Sub Command1-Click()
Dim a(10) As Integer
Dim x As Integer
For i＝1 To 10
a(i)＝i
Next i
x＝1
MsgBox a(f(x)+x)
End Sub
Function f(y As Integer)
y＝y+2
f＝y
End Function
程序运行后，单击命令按钮，消息框的输出结果为______。
6 解析：本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参：若用ByRcf声明，说明此参数为传址调用，此时形参的变化将会返回到实参：没有说明传递类型，则默认为传址传递。本题中函数f的形参y没有使用ByVal声明，则默认为传址传递。当求a(f(x)+x)值的时候，先要求出f(x)+x的值。由于x的值为1，那么调用函数f以后得到f(x)的返回值为3，同时由于函数f中改变了形参y的值，在传址传递的前提下这一改变会影响到对应的实参x，故此函数调用结束后x的值变为3，也就是最后输出的应该是a(6)的值也就是 6。举一反三，如果最后输出的不是a(f(x)+x)而是 a(x+fx))，则会先取得x的值1，然后再计算f(x)的值为3，那么最后输出的就不是a(6)的值而是a(4)的值了。
第5题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub CommaLndl_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
解析：对本题来讲，最后打印出的变量n值就是循环变量的终值20加步长1的值，即n=20+1=21，而与循环体中的内容和计算结果无关。
第6题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是 ______。
A．a=11
B．a=b+c
C．a=
D．假
解析：在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。
第7题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第8题：
在窗体上画一个名称为 \"Command1\" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a As String
A="123456789"
For i=1 To 5
Print Space（6-i）;Mid $ （a,______ ,2*i-1）
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
MiD $( 字符串，起始位置 \[ ，个数 \]) 函数用于取出字符串从指定位置开始的含指定个数字符的字符串。本题 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 个字符。故取字符串起始位置为 6-i ，即依次为 5 、 4 、 3 、 2 、 1 。
第9题：
在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：
Private Sub Command1_Click()
For i=1 To 2
For j=1 To i
Print String(i,"Hello")
Next j
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A)B)C)
D)H
A．H HH HH
B．H HHHH
C．HHHH
D．H
解析：分析程序，程序开始循环时i=1,j=1 to 1,Print String(i,"Hello")语句输出一个H，然后执行Print进行换行；当i=2时，j=1 to 2，Print String(i,"Hello")语句输出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。
第10题：
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Colnmand1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command 1.Enabled=False
End Sub
Private SubText1【 】()
Command1.Enabled=True
End Sub
Change 解析：空缺位置应当填入文件框控件的一个事件名。由题目可知，当向文本框中输入任何字符时，都能触发的文本框事件一定是Change事件。