有哪些信誉好的足球投注网站- 1、本文档共3页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
PAGE/NUMPAGES
基础题(1）
基础题（2）
PrivateSubCommand1_Click(）
HScroll1.Max=Form1.Width
HScroll1.Min=0
HScroll1。LargeChange=50
HScroll1.SmallChange=10
EndSub
PrivateSubHScroll1_Change（)
PrintHScroll1.Value
EndSub
简单题(1）
程序提供代码
OptionBase1
PrivateSubCommand1_Click(）
DimarrN（20）AsInteger
DimAverAsSingle
DimSumAsInteger，i
Randomize
Fori=1To20
arrN(i）=Int（Rnd＊？）
Nexti
’Sum=？
Fori=1To20
’Sum=?
Nexti
’Aver=？
PrintAver
EndSub
程序结束
参考答案
第1个?处填入：1000
第2个？处填入：0
第3个？处填入：Sum+arrN(i）
第4个？处填入：Sum/20
简单题(2)
程序提供代码
SubSaveData()
OpenApp。Path＆”\”＆outtxt。txtForOutputAs＃1
Print#1,Text1.Text
Close＃1
EndSub
FunctionFun（)
EndFunction
PrivateSubCommand1_Click()
d=Fun(）
Text1。Text=d
SaveData
EndSub
程序结束
参考答案
FunctionFun（)
DimsAsInteger，iAsInteger
Fori=0To200
IfiMod3=0Then
s=s+i
EndIf
Nexti
Fun=s
EndFunction
综合题
程序提供代码
OptionBase1
Dima(12,10)AsLong,s(12）AsLong
PrivateSubCommand1_Click()
OpenApp.Path＆\in5。dat”ForInputAs＃1
Fori=1To12
Forj=1To10
Input＃1，a（i,j）
Nextj
Nexti
Close#1
EndSub
PrivateSubCommand2_Click(）
考生编写
EndSub
PrivateSubCommand3_Click(）
’以下程序段在Text1文本框内显示每组数的组号及平均值
Text1.Text=”
Fori=1To12
Ifi〈10Then
Text1.Text=Text1。Text+”＋str(i)++str（s(i)）+Chr＄（13）+Chr$(10）
Else
Text1.Text=Text1.Text+str(i)+”+str(s(i）)+Chr$(13)+Chr＄(10）
EndIf
Nexti
EndSub
PrivateSubCommand4_Click(）
OpenApp.Path＆\out5.dat”ForOutputAs#1
Fori=1To12
Print#1,s(i)
Nexti
Close＃1
EndSub
程序结束
参考答案
PrivateSubCommand2_Click(）
’考生编写
DimqAsLong
Form=1To12
q=0
Forn=1To10
q=q+a（m，n）
Nextn
s(m)=Int（q/10）
Nextm
EndSub
文中如有不足，请您指教！
文档评论（0）