【单选题】有如下程序 Option Explicit Private Sub command1_click() Dim a As Integer, b As Integer, c As Integer, abc As Integer a = InputBox("a=?") b = InputBox("b=?") c = InputBox("c=?") abc = a If b > abc Then abc ...
【单选题】在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序: Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox "帐号有非数字字符错误" Text1.Text = "" Text1.SetFocus else MsgBox "帐号正确" End If End Sub 当在text1文本框中输入字符...
B.
显示对话框,提示信息为"帐号有非数字字符错误"
【单选题】在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "ABC" End Sub Private Sub Command1_MouseDown(Button As Integer, Shi...
【单选题】假定有定义: Dim C$,如果 当 C 中从第二个字符开始的子串是 "ABC" ,则利用 MsgBox 显示 "Yes" ,否则显示 "No", 下面 语句正确的是( )。
A.
If Mid(c, 2 ,3) = "ABC" Then MsgBox("Yes") Else MsgBox("No")
B.
If Mid(c, 2 ,3) = "ABC" Then MsgBox("Yes") : MsgBox("No")
C.
If Mid(c, 2 ,3) = "ABC" Then MsgBox("Yes") MsgBox("No")
D.
MsgBox("No") If Mid(c, 3 ,2) = "ABC" Then MsgBox("Yes")
【单选题】根据下面的程序,说明该程序的执行结果是() #! /bin/bash #定义函数 length() { #接收参数 str=$1 result=0 if [ "$str" != "" ]; then #计算字符串长度 result=${#str} fi #将长度值写入标准输出 echo "$result" } #调用函数 len=$(length "abc123") #输出执行结果 echo "t...
A.the string's length is $len
B.the string's length is len
C.the string's length is 6
D.the string's length is abc123