执行以下程序时,在窗体上单击鼠标后,将出现输入对话框,此时,直接按下回车键,窗体上的输出结果是 Private Sub Form_Click() Dim S As String S = InputBox("input data", "importa

admin2019-07-30  33

问题 执行以下程序时,在窗体上单击鼠标后,将出现输入对话框,此时,直接按下回车键,窗体上的输出结果是
Private Sub Form_Click()
  Dim S As String
  S = InputBox("input data", "important", "学习VisualBasic")
  Print UCase(Mid(S, InStr(S, "i"), 2))
End Sub

选项 A、IN
B、IM
C、IS
D、IC

答案C

解析 InputBox函数的格式为InputBox(prompt[,title] [,default [,xpos,ypos] [,helpfile,context]),题中prompt:"input data"用来提示用户输入;"important"是对话框的标题。default:"学习VisualBasic"即输入对话框的默认显示信息,并在用户没有输入的情况下,作为默认输入。因此在出现对话框时,直接按回车键,故S的值为默认值即S="学习VisualBasic"。字符串匹配函数Instr(s1,s2):在字符串s1中查找s2的位置,返回值为s2的第一个字符在s1中的位置,若找不到,则返回值为0。InStr(S, "i")在字符串"学习VisualBasic "中查找"i"的位置,返回值为4。Mid (s,n1,n2)是字符串截取函数,从s的第n1个字符开始,向后截取n2个字符,故Mid(S,4,2)=is;UCase函数将字符串中的小写字母转换为大写字母。故正确答案为C选项。
转载请注明原文地址:https://jikaoti.com/ti/KRN0FFFM
0

最新回复(0)