计算机等级考试VB复习

c=False\rCase1Case1\rIfLabel1.Fontltalic=TrueThenLabell.Fontltalic=True\rLabel1.Fontltalic=FalseCase2\rElseLabell.FontBold=True\rLabelI.Fontltalic=TrueCase3\rEndIfLabell.Fontltalic=True\rEndSelectLabell.FontBold=True\rEndSubEndSelect\rPrivateSubOptionl_Click(IndexAsInteger)EndSub\rSelectCaseIndexPrivateSubCombo3_Click()\rCase0Labell.FontSize\rLabell.FontName=Option1(Index).CaptionCombo3.List(Combo3.ListIndex)\rCase1EndSub\rLabell.FontName="`0_GB2312”PrivateSubCommandl_Click()\rEndSelectLabell.FontName=**P0”\rEndSubEndSub\rPrivateSubForm_Load()\rFori=4To72Step4\rCombo3.Additemi\rNexti\rCombol.Addltem!! 0"\rCombol.Addltem!!P0!!\rCombol.Addltem"`0_gb2312"\rCombo2.Addltem"‘’"\rCombo2.Addltem!!“0"\rCombo2.Addltem"”0"\rCombo2.Addltem"“0”0"\rCombol.Text= 0"\rCombo2.Text=‘’"\rCombo3.Text=E\rEndSub