2. 计算机
  3. 设有下面程序代码： Private Sub Command1_Click() Dim str As String，ch As String str="Visual Basic Programming" ch="a" n=fun(ch，st) Print s

设有下面程序代码： Private Sub Command1_Click() Dim str As String，ch As String str="Visual Basic Programming" ch="a" n=fun(ch，st) Print s

admin2019-04-29  102
问题 设有下面程序代码：
Private Sub Command1_Click()
Dim str As String，ch As String
str="Visual Basic Programming"
ch="a"
n=fun(ch，st)
Print str，n
End Sub
Private Function fun(ch As String，str As String)
As Integer
Dim strbuf As String，C As String，n As Integer
For k=1 To Len(str)
C=Mid$(str，k，1)
If c＜ ＞ch Then
strbuf=strbuf&c
Else
strbuf=strbuf&UCase(C)
n=n+1
End If
Next k
str=strbuf
fun=n
End Function
程序运行时的输出是
选项 A、Visual Basic Programming 0
B、VisuAl BAsic ProgrAmming 3
C、Visul Bsic Progrmming 3
D、VisualBasicProgramming 2
答案B
解析 Mid$(A$，4，2)是为了与老版本的VB兼容($的作用是强制将函数的返回值设为字符型)。&用来连接字符串。Ⅱ条件判断字符是否和输入的字符相等，相等则n加1。选B。
转载请注明原文地址:https://kaotiyun.com/show/E1Up777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)