阅读如下VisualBasic程序，Functionf(nAsInteger,rAsInteger)asintegerIfn<>0Thenf="n"\rE_刷题宝

题干

阅读如下Visual Basic程序，
Function f(n As Integer, r As Integer) as integer
If n <> 0 Then
f =" n" \ r
End If
End Function
Private Sub Command1_Click()
Print f(10, 8)
End Sub
程序的运行结果是（）

A．8

B．10

C．2

D．1

上一题下一题 0.99难度选择题更新时间:2017-02-24 09:35:55

答案(点此获取答案解析）

同类题1

计算三角形面积的算法如下：
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于( )

A．排序算法	B．解析算法
C．枚举算法	D．查找算法

同类题2

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

同类题3

某VB程序段如下：
Dim a(1 To 5) As Integer, i As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
Next i
Text1.Text = Str(a(i - 1))
该程序段运行后，文本框Text1中显示的内容是

同类题4

“不重复数”的特征是任何相邻两个数位上的数字都不相同。如1101是重复数，1201是不重复数。判断某数是不是重复数的VB程序段如下：
s = Text1.Text
（1）
i = 1: flag = True
Do While i <= n - 1 And flag
If    （2） Then flag = False
i = i + 1
Loop
If    （3） Then
Label1.Caption = "重复数"
Else
Label1.Caption = "不重复数"
End If
上述程序中方框处可选语句为：
①flag=False
②n=Len(s)
③Mid(s,i,1)=Mid(s,i+1,1)
则（1）、（2）、（3）处语句依次是（   ）

A．②､③､①

B．①､③､②

C．②､①､③

D．③､②､①

同类题5

0，500范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

相关知识点