函数Ucase(mid("VisualBasic程序设计",5,8))的值为()。
第1题:
设a = \"MicrosoftVisualBasic\" ,则以下使变量b的值为“VisualBasic”的语句是( )。
A.b = Left(a, 10)
B.b = Mid(a, 10)
C.b = Right(a, 10)
D.b = Mid(a, 11, 10)
第2题:
在VB中,表达式Mid("Visual Basic程序设计",8,5)的结果是( )
A.Visual B
B.l Basic
C.Basic
D.出错
第3题:
( 16 )执行以下程序段后,变量 c$ 的值为
a$ = "Visual Basic Programming"
b$ = "Quick"
c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)
A ) Visual BASIC Programming
B ) Quick Basic Programming
C ) QUICK Basic Programming
D ) Quick BASIC Programming
第4题:
A、VisualBasic
B、“visualbasic“
C、“VISUALASIC“
D、VISUALBASIC
第5题:
假定有以下函数过程: Function Fun(S As String) As String Dim sl As String For i=1 To Len(S) s1=UCase (Mid(S,i,1))+s1 Next i Fun=s1 End Function则Str2=Fun("abcdefg”)的输出结果为( )。
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
第6题:
以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量
OldS中)用新的字符串(保存在变量NewS中)代替,编写以下程序:
PublicFunctionMyReplace(s$,OldS$,NewS$)AsString
Dimc%,lenOldS%
lenOldS=Len(OldS)
c=InStr(s,OldS)
DoWhilec>0
s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)
c=InStr(s,olds)
Loop
MyReplace=s
EndFunction
PrivateSubCommand1_Click()
dimold,newasstring
old=inputbox("请输入要替换的字符")
new=inputbox("请输入替换后新的字符")
PrintMyReplace("VisualBasic程序设计教程5.0版",old,new)
EndSub
当程序运行单击命令按钮后先后分别输入" 5.0"和" 6.0",程序的运行结果为( )
A."VisualBasic程序设计教程5.0版"
B."VisualBasic程序设计教程6.0版"
C."VisualBasic程序设计教程6版"
D."VisualBasic程序设计教程"
第7题:
执行以下程序段后,变量C$的值为( )。 A$="Visual Basic Programing" B$="Quick" C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)
A.Visual BASIC Programing
B.QuickBasic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
第8题:
执行以下程序段后,变量c$的值为______ 。 a$=“Visual Basic Programing” b$=“Quick” c$= b$ & UCase (Mid$(a$,7,6))&Right $,(a $,11)
A.Visual BASIC Programing
B.Quick Basic Programing
C.QUICK Basic Programing
D.Quick BASIC Programing
第9题:
执行以下程序段后,变量c的值为( )。
c=b & UCase(Mid(a,7,6)& Right(a,12))
第10题:
执行以下程序段后,变量c的值为______。
a=“Visual Basic Programming”
b=“Quick”
c=b & UCase(Mid(a,7,6)& Right(a,12))