2级vb.docx
- 文档编号:13106695
- 上传时间:2023-06-11
- 格式:DOCX
- 页数:16
- 大小:18.72KB
2级vb.docx
《2级vb.docx》由会员分享,可在线阅读,更多相关《2级vb.docx(16页珍藏版)》请在冰点文库上搜索。
2级vb
第82套:
一
(1)注意:
将“退出”的default属性设置为true
二
(1)将Dir1.Path=?
中的?
改为drive1.drive
将If?
=0Then中的?
改为index
将File1.Pattern=?
中的?
改为”*.txt
二
(2)将s=s+?
+""中的?
改为a(i,j)
将Text1=?
中的?
改为s
将If?
>MaxThen中的?
改为Asc(a(i,j))
将Text2=Chr(?
)&Str(MaxI)&Str(MaxJ)中的?
改为Max
三.Command1_click()中的代码:
第1个?
改为input
第2个?
改为a(i,j)
第3个?
改为close#1
Command2_click(生成新数组的代码)
Fori=1To5
Forj=1To5
Ifsushu(a(i,j))=TrueThen
b(i,j)=a(i,j)
Else
Ifa(i,j)Mod2=0Then
b(i,j)=a(i,j)*a(i,j)
Else
b(i,j)=a(i,j)*2
EndIf
EndIf
Next
Next
Command3_click(查找最大值)的代码:
Max=b(1,1)
Fori=1To5
Forj=1To5
Ifb(i,j)>maxThenmax=b(i,j)
Next
Next
Label2.Caption=max
第81套:
一
(1)注意:
将组合框的style设置1,再将其拖高
一
(2)在Form_click中写:
P1.printform1.caption
Form1.caption=”Basic”
二
(1)将Command1_click中的代码:
将第1个?
改为”继续”
将第2个?
改为false
将Command2_click()中的代码中的?
改为true
将Timer1_timer()中代码:
第一个?
改为Hscroll1.value+10
第二个?
改为Hscroll1.min
二
(2)改错题:
(需将所有的单引号去掉)
将st1=Trim(?
)中的?
改为Text1.Text
将st2=?
&Mid(st1,n+1,1)中的?
改为st2
将'Text2.Text=?
中的?
改为st2
三.
在FunctionPrime中的补充:
prime=true
Form=2Ton/2
IfnModm=0Then
prime=False
ExitFor
EndIf
Nextm
在Form_click中补充代码:
DimsumAsInteger
Forn=200To300
Ifprime(n)Then
Sum=Sum+n
EndIf
Nextn
Text1.Text=Sum
第80套:
一
(2)在窗体的mousemove中写代码:
Label1.caption=x
二
(1)Command1_click中的代码修改如下:
将第一个?
改为n+1
将第2个?
改为n
将第3个?
改为2
将第4个?
改为f(i)
Functionf中的代码修改:
Fori=1to?
中的?
改为x
二
(2)将month_days
(2)这句中的?
改为28
将fork=?
中的?
改为1
将n=?
中的?
改为0
将functionleap_year(?
…)中的?
改为year
三.将”上一条记录”(Command3)中的代码:
N=?
中的?
改为n-1
将privatesubputdata(?
Asinteger)中的?
改为K
将setenabled?
中的?
改为k
将Command4.enabled=iif(?
)中的?
改为m=num,false,true
第79套:
二
(1)改错题:
a.将Timer1.interval=?
中的?
改为500
b.将shape1.left=?
中的?
改为x
c.将shape1.top=?
中的?
改为y
d.将Timer1.enabled=?
中的?
改为false
e.将shape1.backcolor=?
中的?
改为&HFF&
二
(2)a.将第一个?
改为s
b.将第二个?
改为m+1
c.将第三个?
改为len(Word_s)
d.将第四个?
改为word_max
三.在“排序”中补充代码:
Fori=1To100
IfSqr(a(i))=Int(Sqr(a(i)))Then
n=n+1
b(n)=a(i)
EndIf
Next
将call中的?
改为sort(b,n),再将注释(单引号)删除
第78套:
一
(1):
PrivateSubT1_Change()
C1.Visible=False
T1.Text=C1.Caption
EndSub
一
(2):
PrivateSubClock_Click()
Label1.Caption=Time
EndSub
PrivateSubTitle_Click()
Label1.Caption=Form1.Caption
EndSub
二
(1):
将?
=(low+high)\2中的?
号改为m
将high=?
中的?
号改为m-1
将low=?
中的?
号改为m+1
将LoopUntil?
中的?
号改为low>high
将If?
Then中的?
号改为flag=1
二
(2):
将DimFlagAs?
中的?
号改为Boolean
将PrivateSubForm_?
(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)中的?
号改为MouseMove
将?
(X,Y),300中的?
号改为Circle
将Flag=?
中的?
号改为False
三:
将s=?
中的?
号改为1
将s=s*?
中的?
号改为m
将f=?
中的?
号改为s
“计算”代码:
Dimi,jAsInteger,kAsLong
i=Text1.Text
k=0
Forj=1Toi
k=k+f(j)
Next
Text2.Text=k
第77套:
一
(2):
Dimlength,high
PrivateSubForm_Load()
length=Image1.Width
high=Image1.Height
EndSub
PrivateSubHScroll1_Change()
Image1.Width=HScroll1.Value*length
EndSub
PrivateSubVScroll1_Change()
Image1.Height=VScroll1.Value*high
EndSubEndSub
二
(1):
将If?
=2Then中的?
号改为Button
将PopupMenu?
中的?
号改为mypopmenu
将Fork=nTo?
中的?
号改为1Step-1
将Text2=?
中的?
号改为fact(7)
二
(2):
将Fork=?
ToList1.ListCount-1中的?
号改为1
将name=Left(List1.List(k),?
)中的?
号改为n-1
将price=Val(Right(?
))中的?
号改为List1.List(k),4
将Text3=?
中的?
号改为"无此商品"
三:
“计算最大值最小值按钮”代码:
PrivateSubCommand1_Click()
DimsAsRecordtype
Open"in5.dat"ForRandomAs#1Len=Len(s)
maxval=0
minval=300
Fork=1To20
Get#1,,s
sumval=s.a1+s.a2+s.a3
Ifsumval>maxvalThenmaxval=sumval
Ifsumval Nextk Close#1 EndSub 第76套: 一 (2): PrivateSubCommand1_Click() Shape1.Width=Shape1.Width+100 EndSub PrivateSubCommand2_Click() Shape1.Height=Shape1.Height+100 EndSub 二 (1): 将Loop? 中的? 号改为Untiln>2或者Whilen<=2 将DoWhilenModFactor? 中的? 号改为=0 将? 改为Factor=Factor+1 二 (2): 将Forj=? Ton-k+1中的? 号改为k 将a(i,j)=? 中的? 号改为k 将PrintTab(j*3);? 中的? 号改为a(i,j); 将? 改为Print 三: 将Fork=1To? 中的? 号改为i-1 将? 改为i=i-1 将Forj=? To50中的? 号改为i+1 将temp=? 中的? 号改为a(i) 将? =temp中的? 号改为a(j) 第七十五套 一 (1)将“停止”的Visible设置为false “退出”的Enabled设置为false (2)将通用对话框cd1的初始化路径(或initdir)设置为c: \ 在“打开”中书写代码 cd1.action=1 在“保存”中书写代码 cd1.action=2 二 (1)将组合框的style设置为2(下拉组合框) 在“判断”中修改 a,将selectcasecombo1.? 改为ListIndex b,将第二个? 改为f1(x) c,将第三个? 改为f2(x) 将privatefunctionf2中的? 改为asstring 将ifxmod7=? 改为0 (2)将shape1的shape改为3 fillstyle改为0 fillcolor改为&H000000FF& privateflagas? 改为boolean 将shape1.top=……后面的? 改为shape1.height 将shape1.left=……后面的? 改为shape1.Width Flag=Not(Flag) 三在“合并”中写代码 Fori=0to9 c(i)=a(i)+b(i) Next 将privatesubfindx()asinteger,tas? 改为textbox Max=x(0) Fori=1to9 ifx(i)>MaxThenMax=x(i) Next t.text=Max 第74套: 一 (2) PrivateSubOption1_Click() Text1.Text="参加"+Text1.Text EndSub PrivateSubOption2_Click() Text1.Text=Text1.Text+"不参加" EndSub 二 (1) 将Timer1.Enabled=? 中的? 改为IIf(Timer1.Enabled=True,False,True) 将? 中的? 改为Timer1.Interval=2000 将SelectCase? 中的? 改为a 将Case? 中的? 改为0 二 (2)将? 改为List1.Clear 将Fork=List1.ListCount-1To? Step-1中的? 改为0 将s=s+Val(? )中的? 改为List1.List(k) 将List1.RemoveItem? 中的? 改为k ? =s改为Text2.text 三. '===================考生编写的程序============== Fori=1To5 Max=0 Sum=0 gs=0 Forj=1To40 Ifa(i,j)Mod2=0Then Ifa(i,j)>MaxThenMax=a(i,j) Else Sum=Sum+a(i,j) gs=gs+1 EndIf Nextj Label1(i-1).Caption=Max Text2(i-1).Text=Int((Sum/gs)*100)/100 Next ================================================ 第73套: 一 (1)将Command1 (1)的default设置为true 一 (2)在窗体的Load中写代码: timer1.interval=1000 在Timer1_timer中写: label1.visible=notlabel1.visible 二 (1) 将IfCheck1(k).Value=? Then中的? 改为1 将? =""中的? 改为text1.text 将? 改为Command1.enabled=true 二 (2)将a=Val(? )中的? 改为List1.List(List1.ListCount-2) 将a=? 中的? 改为b ) 将List1.AddItem? 中的? 改为c 三.. Dimn%(5),x%Fori=1To5 x=0 Forj=2To40 Ifa(i,j)<50Thenn(i)=n(i)+a(i,j): x=x+1 Nextj Label1(i-1).Caption=Str(n(i)) Text2(i-1).Text=Str(n(i)/x) Nexti 第七十二套 一 (2)在form_click中写代码: inputbox“请输入”,”等级考试”,”Basic” 二 (1)将n=? (Text1.Text)中的? 改为Len 将b=? (Mid(s,i,1))中的? 改为Asc 将SelectCase? 中的? 改为b 将Fori=0To? 中的? 改为2 将? =a(i)中的? 改为x(i) 二 (2)将Fori=0To? –1中的? 改为La.listcount 将Lb.AddItem? .List(i)中的? 改为La 将? .clear中的? 改为La 三.将DoWhileNot? 中的? 改为EOF (1) 将s=s&? 中的? 改为a(i) '============以下考生编写程序开始================= Fori=1To10 Forj=1To10-i Ifa(j)>a(j+1)Then t=a(j) a(j)=a(j+1) a(j+1)=t EndIf Next Next '============考生编写程序结束===================== 第71套: 一 (1)将文本框的maxlength设置为5 一 (2)最初将标签的visible设置为false 在form_load事件中写代码: form1.caption=”标签” 在form_click中写代码: label1.visible=true 二 (1)将CallShowName(? )中的? 改为Command1 将CallShowName(? )中的? 改Label1 将PrivateSubShowName(cAs? )中的? 改为Control 将? ="单击"&Label1.Caption中的? 改为Label2.caption 二 (2)将Picture1(k).Visible=? 中的? 改为false 将timer1的interval设置为500 将Timer1.Enabled=? 中的? 改为true 将Ifi=? Then中的? 改为8 将i=? 中的? 改为0 三.===============考生编写程序开始====================== Max=a(i,1) t=1 Forj=2Ton Ifa(i,j)>MaxThen Max=a(i,j) t=j EndIf Next b(i)=Max c(i)=t 第70套: 一 (1)将图像框的stretch属性设置为true,同时将picture属性进行设置 一 (2)“复制”按钮的代码: list1.additemlist1.text “删除“按钮的代码: list1.removeitemlist1.listindex 二 (1)将Timer1.Enabled=? 中的? 改为true 将Label1.Left=Label1.Left? 100中的? 改为+ 下一个Label1.Left=Label1.Left? 100中的? 改为- 二 (2)将Forn=? To9中的? 改为1 将CaseIs? Max中的? 改为> 将Caseis? min中的? 改为< 将Sum=? +Val(Text2(n))中的? 改为sum 三.”计算”中代码: Fori=1To20 Min=a(i,1) Forj=2To5 Ifa(i,j) Next Sum=Sum+Min Next Text2.Text=Sum/20
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb