计算机二级VB编程题目含答案.docx
- 文档编号:29498976
- 上传时间:2023-07-24
- 格式:DOCX
- 页数:33
- 大小:748.52KB
计算机二级VB编程题目含答案.docx
《计算机二级VB编程题目含答案.docx》由会员分享,可在线阅读,更多相关《计算机二级VB编程题目含答案.docx(33页珍藏版)》请在冰豆网上搜索。
计算机二级VB编程题目含答案
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger,sAsDouble
n=Val(Text1.Text)
s=0
Fori=1Ton
s=s+i^2
Nexti
Text2.Text=s
EndSub
PrivateSubCommand1_Click()
PrivateSubCommand2_Click()
'''不得删除本行说明
DimiAsInteger
OpenApp.Path&"\"&"yssj.txt"ForInput
As#1
Fori=1To10
Input#1,a(i)
Nexti
Close#1
EndSub
'''不得删除本行说明
DimiAsInteger
Text1.Text=""
Fori=1To10
Ifa(i)Mod3=2Then
Text1.Text=Text1.Text&Str(a(i))
EndIf
Nexti
EndSub
PrivateSubcommand1_Click()
'''不得删除本行说明
DimaAsInteger,bAsDouble,iAsInteger,nAsInteger
n=Val(Text1.Text)
a=0
b=0
Fori=1Ton
a=a+i
b=b+a
Nexti
Text2.Text=b
EndSub
PrivateSubCommand1_Click()
PrivateSubCommand2_Click()
'''不得删除本行说明
'''不得删除本行说明
Dimi%,xh$,xm$
Dimsasstring
OpenApp.Path
&"\"&"Xhxm.txt"For
OpenApp.Path&"\"&"Xhxm.txt"For
OutputAs#1
InputAs#2
Fori=1To3
DoWhileNotEOF
(2)
xh=InputBox("
请输入学号")
LineInput#2,s
xm=InputBox("
请输入姓名")
Text1.Text=Text1.Text&s&vbCrLf
Write#1,xh,xm
Loop
Nexti
Close#2
Close#1
EndSub
EndSub
PrivateSubCommand1_Click()
PrivateSubCommand2_Click()
‘”读取文件”按钮代码
DimsAsString,coAsString,cAsString,
'''不得删除本行说明
DimnAsInteger,iAsInteger,pAsInteger
DimstAsString
s=Trim(Text1.Text)
Text1.Text=""
n=Len(s)
OpenApp.Path
&
"\"
&“jmwb.txt"
For
co=""
InputAs#1
Fori=1Ton
WhileNotEOF
(1)
c=Mid(s,i,1)
Input#1,st
p=Asc(c)+5
Text1.Text=Text1.Text+st+vbCrLf
co=co+Chr(p)
Wend
Nexti
Close#1
Text2.Text=co
EndSub
EndSub
PrivateSubcommand1_click()
'''不得删除本行说明
ForN=1To15
x(N)=Int(Rnd*91+10)
Text1.Text=Text1.Text+Str(x(N))
NextN
EndSub
PrivateSubCommand2_Click()
'''不得删除本行说明
DimmAsInteger,KAsInteger
ForN=1To15
Form=N+1To15
Ifx(m)>x(N)Then
K=x(N)
x(N)=x(m)
x(m)=K
EndIf
Nextm
Text2.Text=Text2.Text+Str(x(N))
NextN
EndSub
PrivateSubCommand1_Click()
DimcharAsString*1
char=Trim(Text1.Text)
IfNotIsNumeric(char)Then
If(Asc(char)>=65AndAsc(char)<=90)Or_
(Asc(char)>=97AndAsc(char)<=120)Then
Label1.Caption="输入的是字母"
Else:
Label1.Caption="输入的是其余符号"
EndIf
Else:
Label1.Caption="输入的是数字"
EndIf
EndSub
PrivateSubCommand1_Click()
Text1.Text=UCase(Text1.Tag)
EndSub
PrivateSubCommand2_Click()
Text1.Text=LCase(Text1.Tag)
EndSub
PrivateSubCommand3_Click()
Text1.Text=Text1.Tag
EndSub
PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
'关于文本框控件中输入的每次键盘按键弹举事件做一次文本内容保留
Text1.Tag=Text1.Text'用Text1.Tag属性作为保留textbox控件文本内容的暂时储存区EndSub
PrivateSubcommand1_Click()
'''不得删除本行说明
DimaAsInteger,bAsInteger,cAsInteger
DimmaxAsInteger,minAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
max=a+b+Abs(a-b)
max=max/2
min=a+b-Abs(a-b)
min=min/2
max=max+c+Abs(max-c)
max=max/2
min=min+c-Abs(min-c)
min=min/2
Text4.Text=max
Text5.Text=min
EndSub
PrivateSubCommand1_Click()
DimaAsInteger
IfNotIsNumeric(Text1.Text)Then
MsgBox"请输入数字!
",48,"输入的不是数字"
Elsea=Val(Text1.Text)
If(aMod4=0AndaMod100<>0)OraMod400=0Then
Text2.Text="闰年"
Else:
Text2.Text="非闰年"
EndIf
Endif
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimnAsInteger,iAsInteger
n=Val(Text1.Text)
Ifn<0Or(NotIsNumeric(Text1.Text))ThenMsgBox"请输入正整数",48,"输入的不是正整数"OpenApp.Path&"\"&"jfwj.txt"ForOutputAs#1
Fori=1Ton
Print#1,String(i,"*")
Nexti
Close#1
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimiAsInteger
Fori=1To200
IfiMod3=0AndiMod7=0Then
Text1.Text=Text1.Text+Str(i)
EndIf
Next
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimsumAsSingle,iAsInteger
OpenApp.Path&"\"&"Jsdata.txt"ForInputAs#1
Fori=1To15
Input#1,Arr(i)
Nexti
Close#1
IfOp1Then
T1.Text=Aaa
EndIf
IfOp2Then
T1.Text=Bbb
EndIf
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimiAsInteger,nAsInteger,sAsInteger
n=Val(Text1.Text)
Ifn<0Or(NotIsNumeric(Text1.Text))ThenMsgBox"请输入正整数",48,"输入的不是正整数"s=0
Fori=1Ton
IfiMod3=0Then
s=s+i
EndIf
Nexti
Text2.Text=s
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimaAsInteger
a=Val(Text1.Text)
Text2.Text=zh(a)
‘zh过程在本来的程序代码中已经有了~直接可用
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimxAsDouble
DimyAsDouble
x=Val(Text1.Text)
Ifx<10Then
y=x-1
ElseIfx<20Then
y=2*x-1
Else:
y=3*x-1
EndIf
Text2.Text=y
EndSub
PrivateSubCommand1_Click()
PrivateSubCommand2_Click()
'''不得删除本行说明
Text1.Text=""
OpenApp.Path&"\"&"zfwj.txt"ForInput
As#1
Fori=1To10
Input#1,a(i)
Text1.Text=Text1.Text&""&a(i)
Nexti
Close#1
EndSub
'''不得删除本行说明
DimtAsString
Text2.Text=""
Fori=1To10
t=a(i)
a(i)=a(10-i+1)
a(10-i+1)=t
Text2.Text=Text2.Text&""&a(i)
Nexti
EndSub
PrivateSubCommand1_Click()
DimaAsInteger
DimbAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
Label1.Caption=Int(Rnd()*(b-a+1)+a)
Label2.Caption=Int(Rnd()*(b-a+1)+a)
Label3.Caption=Int(Rnd()*(b-a+1)+a)
EndSub
PrivateSubCommand1_Click()
Dimsasstring
OpenApp.Path&"\"&"Bdata.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,s
Text1.Text=Text1.Text+s+Chr(13)+Chr(10)
Loop
Close#1
EndSub
PrivateSubCommand1_Click()
'''不得修改本行说明
DimnAsInteger
n=Val(Text1.Text)
Ifn<100Orn>999Then
MsgBox"请输入三位正整数",,"输入犯错"
Else:
Text2.Text=Int(nMod10)
Text3.Text=Int((nMod100)/10)
Text4.Text=Int(n/100)
EndIf
EndSub
PrivateSubCommand1_Click()
'产生按钮的代码
i=List1.ListIndex
Fori=0To9
List1.AddItemInt(90*Rnd+10)
Nexti
EndSub
PrivateSubCommand3_Click()
钮的代码
List1.Clear
List2.Clear
EndSub
’消除按
PrivateSubCommand2_Click()
'''不得修改本行说明
DimnAsDouble,jAsInteger
i=List1.ListIndex
Fori=List1.ListCount-1To0Step-1
n=Val(List1.List(i))
IfnMod2=1Then
List2.AddItemn
List1.RemoveItemi
EndIf
Nexti
EndSub
PrivateSubCommand1_Click()
PrivateSubCommand2_Click()
‘”读入数据”按钮代码
'''不得删除本行说明
'''不得删除本行说明
DimxAsString,yAsString*1,nAs
DimstAsString
Integer,iAsInteger,pAsInteger
Text1.Text=""
x=Trim(Text1.Text)
OpenApp.Path&"\"&"yy.txt"ForInput
n=Len(x)
As#1
p=0
WhileNotEOF
(1)
Fori=1Ton
Input#1,st
y=UCase(Mid(x,i,1))
Text1.Text=Text1.Text+st+vbCrLf
Ify>="A"Andy<="Z"Then
Wend
p=p+1
Close#1
EndIf
EndSub
Nexti
Label1.Caption="共"&p&"
个字母"
EndSub
PrivateSubCommand1_Click()
'''不得删除本行说明
DimnAsInteger,kAsInteger,iAsInteger
Forn=200To300
k=Int(Sqr(n))
Fori=2Tok
IfnModi=0ThenExitFor
Nexti
Ifi>kThenList1.AddItemn
Nextn
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VB 编程 题目 答案