(1)请在你的个人主页上添加时间显示信息,显示当天的日期、时间及星期几。
date() time()
select case weekday(date())
case 1
"星期日"case 2
"星期一"case 3
"星期二"case 4
"星期三"case 5
"星期四"case 6
"星期五"case 7
"星期六"end select
2)请编写程序段,判断当天日期,如果是25日,则显示“请注意,明天可能有病毒发作”。
if day(date())25 then
"请注意:明天可能有病毒发作。"
end if
3)请编写程序段,随机产生一个0到9的整数。如果是偶数,则在页面上输出“生成的是偶数”,否则输出“生成的是奇数”。
dim ss=int(10 * rnd())
if (s mod 2)=0 then
"生成的是偶数"
else"生成的是奇数"
end if
4)s=1^2+3^2+5^2+…+99^2,请利用两种循环语句编写程序,计算s的值。
第1种算法:
dim i,sum
s=0for i=1 to 99 step 2
s=s+i^2nexts
第2种算法:
i=1s=0
do while i<=99
s=s+i^2
i=i+2loops
5)请编写函数计算a到b的立方和,并举例调用,调用时a、b分别为3和6。
function lifanghe(a,b)
dim sum,i
sum=0for i=a to b
sum=sum+i^3
nextlifanghe=sum
end function
dim ss=lifanghe(3,6)s
6)请编写函数能够随机产生从a到b之间的整数,并举例调用。
下面是函数。
function rndab(a,b)
rndab=int((b-a+1)*rnd)+a
end function
dim ss=rndab(3,10)s
7)请结合示例3-13开发一个函数,使其能实现join函数的功能。
答案:构造join函数。
% option explicit'强制声明变量%>
下面是将全部数组元素连接在一起的函数。
function join_string(s_temp)
dim strsum,item
for each item in s_temp'执行循环,取出每个元素。
strsum=strsum & item
nextjoin_string=strsum
end function
下面是主程序,用来调用。
dim s(3)'定义一个数组。
dim return_string
s(0)="a"
s(1)="b"
s(2)="c"
s(3)="end--"
return_string=join_string(s)
"全部数组元素连接成的字符串为" &return_string
8)请在示例3-14的基础上增加一段**,从而可以计算所有数组元素的平方和。(提示:请用嵌套循环)
答案:计算所有数组元素的平方和。
% option explicit'强制声明变量%>
dim inta(9,9),intsum'声明一个10行10列的二维数组。
dim i,j'i是外层循环计数器变量,j是内层循环计数器变量。
for i=0 to 9'外层循环。
for j=0 to 9'内层循环。
inta(i,j)=10'给每一个元素赋初值10
nextnext
for i=0 to 9'外层循环。
for j=0 to 9'内层循环。
intsum=intsum+inta(i,j)^2'给每一个元素赋初值10
nextnext
"该数组元素的平方和是"&intsum
9)(选做题)有100个人吃100个馒头,大人1人吃4个,孩子4人吃1个,问有多少个大人和多少个孩子?(提示:使用嵌套循环和条件语句)
答案:计算吃馒头的人数。
dim i,j,ren,mantou
for i=1 to 100'大和尚从1到100循环。
for j=1 to 100'小和尚从1到100循环。
ren=i+j'计算总人数。
mantou=i*4+j*0.25'计算总馒头数。
if ren=100 and mantou=100 then
大和尚=" i & 小和尚=" j
end if
nextnext
第二次作业
第 次作业日期姓名 得分 一 给下列词语注音。废墟调遣履行凄凉。荒无人烟潸然泪下井然有序。生死攸关绘声绘色薄雾笼罩。二 查字典填空。负 字用音序查字法,应查音序 音节 负 在字典中的解释有 背 担任 遭受 享有 背弃 违背 败 输。请为下面词语中的 负 选择合适的解释。序号填空 负荆请罪 久负盛名 ...
第二次作业
三 案例题。梁某与好友强某深夜在酒吧喝酒。强某醉酒后,钱包从裤袋里掉到地上,梁某拾后见钱包里有5000元现金就将其隐匿。强某要梁某送其回家,梁某怕钱包之事被发现,托辞拒绝。强某在回家途中醉倒在地,被人发现时已经冻死。关于本案,请问 1 梁某占有财物的行为构成何种犯罪并说明理由。2 梁某对强某的死亡是...
第二次作业
你不能来上课,应该跟老师说一声。5 这种境界,使人惊叹,叫人舒服。你努力学习,你一定会有所进步。五 修改病句。今天的气温很热。2 静静的河水呼啦啦地流着。3 文艺晚会上,舞蹈和 都很好看。4 我们上课很积极。六 阅读欣赏。三亚落日 节选。三亚在海南岛的最南端,被蓝透了的海水围着,洋溢着浓浓的热带风情...