2. 计算机
  3. 编写如下事件过程： Private Sub Form Click() Dim Char As String，i As Integer Const ch$="#" msg$= "Enter a String："

编写如下事件过程： Private Sub Form Click() Dim Char As String，i As Integer Const ch$="#" msg$= "Enter a String："

admin2009-02-13  56
问题 编写如下事件过程：    Private Sub Form Click()       Dim Char As String，i As Integer       Const ch$="#"       msg$= "Enter a String："       char=InputBox$(msg$)       n=Len(Char)       For i=1 To n         If Mid$(char，i，1)=ch$ Then            Exit For         End If       Next i       Print i - 1    End Sub    其中InputBox函数的功能是弹出一个输入对话框，按所给参数给出提示，等待用户输入，并返回输入的内容。程序运行后，单击窗体，如果在输入对话框内输入字符串“12ab$%*/#fg”，则窗体上输出
选项 A、2
B、2
C、5
D、8
答案8
解析 该程序代码的功能是：在输入字符串中，对字符“#”前的字符个数进行统计：无“#”时，即统计该字符串的长度(或字符个数)；有“#”时，则计算“#”符号左边的字符个数。在“12ab$%*/#fg”中，“#”前有8个字符，窗体上输出8。
转载请注明原文地址:https://kaotiyun.com/show/bs1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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