预览加载中，请您耐心等待几秒...

VB题库上机答案.doc

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共45页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

第一套（窗体标题设置按钮属性命令按钮等级考试）运行后命令按钮不可见命令按钮标题字号字体用三号字黑体 PrivateSubForm_Click() Label1.Top=0 Label1.Left=Form1.Width-Label1.Width EndSub 参考答案 第1个？处填入：1001 第2个？处填入：Min 第3个？处填入：arrN(i)<Min或Min>arrN(i) FunctionFun() DimsAsInteger,iAsInteger Fori=0To1000 IfiMod7<>0Then s=s+1 EndIf Nexti Fun=s EndFunction 参考答案 PrivateSubC1_Click() CallReadData1 CallReadData2 EndSub PrivateSubC2_Click() DimArr3(1To20)AsInteger DimsumAsInteger sum=0 Fori=1To20 Arr3(i)=Arr1(i)-Arr2(i) sum=sum+Arr3(i) Nexti Print"sum=";sum WriteData"dataout.txt",sum EndSub 第二套。（体育美术） PrivateSubHide_Click() Text1.Visible=False EndSub PrivateSubShow_Click() Text1.Visible=True EndSub 2 PrivateSubC1_Click() Text1.PasswordChar="" EndSub PrivateSubC2_Click() Text1.PasswordChar="?" EndSub PrivateSubC3_Click() Text2.Text=Text1.Text EndSub PrivateSubP1_Click() CD1.ShowOpen EndSub 3 Functionfoundhuiwen(pAsString) IfStrReverse(p)=pThenfoundhuiwen=True EndFunction 第三套数学语文 参考答案 PrivateSubM1_Click() Text1.FontBold=True EndSub PrivateSubM2_Click() Text1.FontItalic=True EndSub PrivateSubM3_Click() Text1.FontUnderline=True EndSub PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=2Then Me.PopupMenuFormat EndIf EndSub 参考答案 第1个？处填入：Show 第2个？处填入：Caption 第3个？处填入：k 第4个？处填入：PasswordChar 参考答案 第1个？处填入：Text1.Text 第2个？处填入：PasswordChar 第3个？处填入：0 第4个？处填入：False 第四套猴子 PrivateSubCommand1_Click() Text1.PasswordChar="" EndSub PrivateSubCommand2_Click() Text1.PasswordChar="*" EndSub PrivateSubCommand3_Click() Text1="" Text1.SetFocus EndSub 2参考答案 第1个？处填入：Show 第2个？处填入：Caption 第3个？处填入：k 第4个？处填入：PasswordChar 参考答案 第1个？处填入：Step－1 第2个？处填入：List1.List(k) 第3个？处填入：k 第4个？处填入：Text1或Text1.Text 参考答案 第1个？处填入：0 第2个？处填入：stepy 第3个？处填入：Timer1.Enabled 第4个？处填入：Timer1.Enabled 第5个？处填入：stepy 第五套（shape1形状控件圆） PrivateSubForm_Click() Label1.Visible=True EndSub PrivateSubForm_Load() Form1.Caption="标签" EndSub 参考答案 第1个？处填入：Command1 第2个？处填入：Label1 第3个？处填入：Control 第4个？处填入：Label2.Caption 第1个？处填入：False 第2个？处填入：True 第3个？处填入：8 第4个？处填入：