题目
设有语句组:
Dim S1 As String*5
S1 = "VB Test"
则S1的值为()。
A、 VB Test
B、 VB Te
C、 VBTes
D、 BTest
第1题
A.s2.Name="zhang"
B.s1 = s2
C.s1.score = s2.score
D.Student.Name = s2.Name
第2题
A.s2.Name="zhang"
B.s1 = s2
C.s1.score = s2.score
D.Student.Name = s2.Name
第3题
A.s2.Name="zhang"
B.s1 = s2
C.s1.score = s2.score
D.Student.Name = s2.Name
第4题
A.s2.Name="zhang"
B.s1 = s2
C.s1.score = s2.score
D.Student.Name = s2.Name
第5题
A.s2.Name="zhang"
B.s1 = s2
C.s1.score = s2.score
D.Student.Name = s2.Name
第6题
(31)设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len(xStr)
i=1
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是()。
A)ABCDEF
B)abcdef
C)AFBECD
D)DEFABC
第7题
设有如下通用过程:
Public Function Fun(xStr As String)
Dim tStr As String, srtL As Integer
tStr+" "
strL=Len(xStr)
i=1
Do While i <=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮,然后编写如下的事件过程:
Private Sub Command 1_ Click()
Dim S1 As String
S1="abcdef"
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,则Text1中显示的是()。 A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
第8题
设有如下通用过程:
Pubfic Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tstr=“”
strL=Len(xStr)
i=1
Do While i<=strL/2
tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)
i=i+1
Loop
Fun=tStr
EndFunction
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程:
Private Sub Commandl_Click()
Dim S1 As String
S1=“abcdef”
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是
A.ABCDEF
B.abedef
C.AFBECD
D.DEFABC
第9题
设有下列通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=strL/2 DO While i<=StrL tStr=tStr&Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程: Private Sub Commandl Click() Dim S1 As String S1="ABCDEF" Text1.Text=LCase(Fun(S1)) End Sub 程序运行后,单击命令按钮,文本框中显示的是()。
A.ABCDEF
B.abedef
C.defdef
D.defabc
第10题
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=1 Do While i<=strL/2 tStr=tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后,单击命令按钮,则Text1中显示的是______。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!