Dim MyLen
MyLen=Len(MyInt)
执行以上程序段后，MyLen为___________。 (69)已知如下程序段： Dim Mystring, MyLen Mystring =\ MyLen=Len(Mystring)
执行以上程序段后，MyLen为________。 (70)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring, 1)
执行以上程序段后，MyStr为________。 (71)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring,7)
执行以上程序段后，MyStr为________。 (72)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Left(Anystring,20)
执行以上程序段后，MyStr为________。 (73)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,1)
执行以上程序段后，MyStr为________。 (74)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,6)
执行以上程序段后，MyStr为________。 (75)已知如下程序段： Dim Anystring, MyStr Anystring =\ MyStr =Right(Anystring,20)
执行以上程序段后，MyStr为________。 (76)已知如下程序段：
Dim Mystring, FirstWord
Mystring =\ FirstWord =Mid(Mystring,1,3)
执行以上程序段后，FirstWord为________。 (77) 已知如下程序段：
Dim Mystring, Lastword
Mystring =\ Lastword=Mid(Mystring,14,4)
执行以上程序段后，Lastword为________。 (78)已知如下程序段：
Dim Mystring, Midwords
Mystring =\ Lastword=Mid(Midwords,5)
执行以上程序段后，Midwords为________。 (79)已知如下程序段：
Dim LowerCase,UpperCase LowerCase =\ UpperCase =Ucase(LowerCase)
执行以上程序段后，UpperCase为________。 (80)已知如下程序段：
Dim LowerCase,UpperCase UpperCase =\ LowerCase =Lcase(UpperCase)
执行以上程序段后，LowerCase为________。 (81)已知如下程序段：
Dim Mystring,Trimstring Mystring=\
Trimstring=Ltrim(Mystring)
执行以上程序段后，Trimstring=__________。 (82)已知如下程序段：
Dim Mystring，Trimstring Mystring=\
Trimstring=Rtrim(Mystring)
执行以上程序段后，Trimstring=__________。 (83)已知如下程序段：
Dim Mystring,Trimstring Mystring=\
Trimstring=Ltrim(Rtrim(Mystring))
执行以上程序段后，Trimstring=__________。 (84)已知如下程序段：
Dim Mystring，Trimstring Mystring=\ Trimstring=Trim(Mystring)
执行以上程序段后，Trimstring=__________。 (85)已知如下程序段： Dim MyChar MyChar=Chr(65)
执行以上程序段后，MyChar=________。 (86)已知如下程序段：
Dim MyChar MyChar= Chr(97)
执行以上程序段后，MyChar=_________。 (87)已知如下程序段： Dim MyChar MyChar=Chr(62)
执行以上程序段后，MyChar=_________。 (88)已知如下程序段： Dim MyChar MyChar=Chr(37)
执行以上程序段后，MyChar=________。 (89)已知如下程序段： Dim MyValue
MyValue = Val(\
执行以上程序段后，MyValue=_________。 (90)已知如下程序段： Dim MyValue
MyValue = Val(\
执行以上程序段后，MyValue=_________。 (91)已知如下程序段： Dim MyValue
MyValue = Val(\
执行以上程序段后，MyValue=_________。
(92)如下程序的功能为：内层的Do…Loop语句循环到第10次时将标志值设置为False，并用Exit Do语句强制退出内层循环。外层循环则在检查到标志值为False时，马上退出。请填空。
Dim Check, Counter Check =True: Counter=0 Do
Do While Counter＜20 Counter =Counter +1 If Counter=10 Then ________ Exit DO End If Loop Loop
(93)如下程序的功能为：使用Goto语句在一个过程内的不同程序段间作流程控制，在此程序中用于不执行的语句是____________。 Sub GotostatementDemo() Dim Number, MyString Number=1
If Number =1 Then Goto Line1 Else Goto Line2 Line1:
MyString =\ Goto LastLine line2:
MyString =\ LastLine:
Debug.Paint MyString '将“Number equals 1”显示在“立即”窗口。 End Sub
(94)有如下程序段：
Dim Number, Digits, Mystring Number=53
If Number<10 Then Digits=2 Else
Digits=3 End If
将该程序段中的If语句用单行格式应该写成_________。
(95)如下程序的功能为：使用while…Wend语句来增加计数变量的值。如果条件判断值为True，则循环内的语句将一直执行下去。当Counter__________时循环中止。 Dim Counter Counter = 0
While Counter<20 Counter=Counter +1 Wend
(96)如下程序的功能为：使用IIf函数来判断CheckIt过程之TestMe参数的值，如果参数值大于1000则传回____________，否则传回______。 Function CheckIt(TestMe As Integer)
CheckIt=IIf(TestMe>1000,\ End Function (97)有如下程序：
Function MatchUp(CityName As String)
Matchup=Switch(Cityname=\
=\
End Function
如果CityName赋值为\，则Matchup=_________。 (98)有如下程序：
Function GetChoice(Ind As Integer)
GetChoice=Choose(Ind,\ End Function
如果Ind赋值为1，程序执行后CetChoice=______________。
同步练习答案 一、选择题
(1)A) (2)C) (3)D) (4)C) (5)A) (6)B) (7)C) (8)B) (9)C) (10)B)
(11)A) (12)B) (13)C) (14)A) (15)C) (16)D) (17)B) (18)C) (19)B) (20)B) (21)A) (22)D) (23)D) (24)A) (25)D) (26)C) (27)B) (28)A) (29)B) (30)A) (31)B) (32)A) (33)C) (34)D) (35)C) (36)C) (37)C) (38)C) (39)C) (40)C) (41)B) (42)B) (43)C) (44)D) (45)A) (46)B) (47)B) (48)A) (49)C) (50)B) (51)B) (52)C) (53)D) (54)B) (55)B) (56)C) (57)C) (58)D) (59)C) (60)A) (61)C) (62)D) (63)B) (64)C) (65)A) (66)C) (67)A) (68)B) (69)C) (70)D) (71)B) (72)D) (73)B) (74)C) (75)D) (76)C) (77)C) (78)A) (79)C) (80)D) (81)B) (82)C) (83)A) (84)C) (85)B) (86)D)
二、填空题
(1)Visual Basic for Application (2)Function
(3)类模块 (4)Dim…As… (5)全局变量 (6)Private (7)Global (8)Static (9)Type…End Type (10)循环结构 (11)IIf
(12)IsNumeric (13)ByVal (14)传址调用 (15)On Error (16)取消错误处理 (17)忽略错误并执行下一条语句
(18)显示所有当前过程中变量声明及变量值的变化
(19)在中断模式下安排一些调试语句并显示其值的变化 (20)选择监视表达式并显示其值的变化
(21)输入数据对话框 (22)MsgBox (23)定时 (24)Domd.OpenForm (25)中断程序的执行 (26)-1 (27)事件过程 (28)Int(15+61*Rnd) (29)ADO (30)DBEngine (31)CurrentProject.Connection (32)Field (33)Recordset (34)Null (35)从指定记录集里检索特定字段的值 (36)全局
(37)VBA代码 (38)RunMacro (39)Visual Basic (40)Visual Basic Editor (41)“按分类序” (42)过程列表 (43)ReDim (44)Option Base (45)Set (46)Mystring & Chars Mystring & \
(47)如果是7，退出For…Next循环如果是29，退出Do…Loop循环 (48)Hello World (49)4 (50)40 (51)346 (52)True (53)False (54)Null (55)8 (56)50.3 (57)50.3 (58)99 (59)99 (60)-100 (61)-99 (62)6 (63)9 (64)9 (65)0
(66)42 (67)8 (68)2
(69)11 (70)H (71)Hello W (72)Hello World (73)d (74) World (75)Hello Word (76)Mid (77)Demo (78)Funcion Demo (79)HELLO WORLD 1234 (80)hello world 1234 (81)<-Trim-> (82) <-Trim-> (83)<-Trim-> (84)<-Trim-> (85)A (86)a (87)> (88)％ (89)2457 (90)2457 (91)24
(92)Check=False Until Check=False (93)Mystring=\(94)If Number<10 Then Digits=2 Else Digits=3
(95)>19 (96)Large Small (97)French (98)Speedy