《程序设计基础——vb》

《《程序设计基础——vb》》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《程序设计基础——VB》班级：学号姓名（1）以F叙述屮正确的是（）A、窗体的Name属性指定窗体的名称，用来标示一个窗体B、窗体的Name属性值是显示在窗体标题中的文木C、可以在运行期间改变窗体的Name属性的值D、窗体的Name属性值可以为空（2）以下叙述屮错误的是（）A、打开一个工程文件时，系统自动载入与该工程冇关的窗体文件B、保存VisualBasic程序时，应分别保存窗体文件及工程文件C、VisualBasic应用程序只能以解释方式执行D、窗体文件包含该窗体及其控件的属性（3）(4)设a=2,b=3,c=4下列表达式的值是(Nota<=cOr4*c=bA2And

2、<>a+cA、-1B、1设有如下的用户定义类型：TypestudentNumberAsStringNameAsStringAgeAsIntegerEndType则以下正确引用该类型成员的代码是(c、TrueD、False(5)(6)(7)(8)A、student.Name=”李明"B、DimsAsstudents.Name="李明”C.DimsAsTypestudentD、DimsAsTypes.Name=”李明”s.Name=”李明")设a=5,b=6,c=7,d=8,执行下列语句后,x的值为x=Ilf((a>b)And(c>d)J0,20)X、10B.20执行以下程

3、序段后，变量c$的值为a$=MVisualBasicProgramming^b$m‘Quick"c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)A^VisualBASICProgrammingB、QuickBasicProgrammingC、QUICKBasicProgrammingD、QuickBASICPrograming在窗体上画一个文本框(其名称为Textl)和一个标签(其名称为Label1),程序运行后，如果在文本框中输入指定的信息，则立刻在标签中显示相同的内容。以下可以实现上述操作的事件过程是()AnPrivateSubText

4、l_Click()C、PrivateSubLabell_Change()Label1.Caption=Text1.TextLabel1.Caption=Text1.TextEndSubEndSubB、PrivateSubTcxtl_Changc()D、PrivateSubLabell_Click()Label1.Caption=Text1.TextLabelI.Caption=Text1.TextEndSubEndSub在窗体上画一个命令按钮和一个标签，名称分别为Command1和Label1,编写如下事件过程：PrivateSubCommand1_CIick()Cou

5、nter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是()C、TrueD、FalseA、11B.12C、16D、20在窗体上画一个名称为Tcxll的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程:DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>lOThenExitForNextText1.Text=Str(n)程序运行后，单击命令按钮，

6、在文本框中显示的值是A、5B、4C、3D、(10)在窗体上画一个命令按钮和两个标签，其名称为CommandKLabel1和Label2,然后编写如下爭件过程：PrivateSubCommandl_Click()a=0Fori=1To10a=a+1b=0Forj=lTo10a=a+1b=b+2NextjNextiLabel1.Caption=Str(a)Labcl2.Caption=Str(b)EndSubX、10和20B、20和110C.200和110D、110和20(11)在窗体上画一个名称为Lis(l的列表框，一个名称为Lable1的标签，列表框中显示若T•城市的名

7、称。当单击列表框屮的某个城市时，该城市从列表框中消失，并在标签中显示出來。下列能正确实现上述操作的程序是()EndSubC.PrivateSubListl_Click()A、PrivateSubListI_CIick()Label1.Caption=List1.ListindexListI.RemovelteniListI.TextLabel1.Caption=List1.TextList1.RemoveltemList1.ListindexEndSub(12)EndSubB、PrivateSubListl_Click()Label1.N