填空题

运行下面的程序，其输出结果(str2的值)为______。
Dim str1，str2 As String
Dim i As Integer
str1="abcdef"
For i=1 To Len(str1) Step 2
str2=UCase(Mid(str1，i，1))+str2
Next
MsgBox str2

【参考答案】

ECA
<上一题 目录 下一题>
热门 试题

填空题
rs.Edit
填空题
有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Text1、Text2和Text3这3个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击“退出”按钮则退出。请将下列程序填空补充完整。 Private Sub Command1_Click() Me!Text1= Me!Text2= Me!Text3= Me!Text4= End Sub Private Sub Command2_Click() If Me!Text1= Or Me!Text2= Or Me!Text3= Then MsgBox 成绩输入不全 Else Me!Text4=(______+Val(Me!Text2)+Val(Me!Text3)) 3 End If End Sub Private Sub Command3_Click() Docmd Quit End Sub
相关试题