一、填空题(每空4分,共60分)
1、设有如下程序段:
a$="beijingshanghai"
b$=mid(a$,instr(a$,"g")+1)
执行上面的程序段后,变量b$的值为__beijing___
2、以下程序段的输出结果是___3___
num =0
while num<=2
num = num+1
wendprint num
3、窗体上有一个名称为list1的列表框,一个名称为text1的文本框,一个名称为label1、caption属性为“sum”的标签,一个名称为command1、标题为“计算”的命令按钮。程序运行后,将把1~100之间能够被7整除的数添加到列表框。如果单击“计算”按钮,则对list1中的数进行累加求和,并在文本框中显示计算结果。
以下是实现上述功能的程序,请填空。
private sub form_load()
for i=1 to 100
if i mod 7 =0 then
__ i__
end if
next end sub
private sub command1_click()
sum =0
for i=0 to__ 1___
sum =sum+__
nextend sub
4、本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是text1、text2、text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。
程序运行后,在文本框text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。
private sub command1_click()
randomize
n=cint(
n1=0n2=0
for i=1 to__ n___
r=int(rnd*2)
if r=__1___then
n1=n1+1
elsen2=n2+1
end if
nextend sub
5、阅读程序:
option base 1
private sub form_click()
dim a(3) as integer
print "输入的数据是:";
for i=1 to 3
a(i)=inputbox("输入数据")
print a(i);
nextprint
if a(1)t=a(1)
a(1)=a(2)
a(2)=_t___
end if
if a(2)>a(3) then
m=a(2)
elseif a(1)>a(3) then
m=__a(3)__
elsem=__a(1)__
end if
print "中间数是:";m
end sub
程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数。请填空。
6) 在窗体上画一个名称为“command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为label1的控件数组; 名称为label2的标签用于显示计算结果,其caption属性的初始值为空; 标签label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在label2。
请填空。
private sub command1_click()
sum = 0
for i=0 to 4
sum=sum+__val(label1(i).caption) _
next__ sum
end sub
7) 在窗体上画两个名称分别为command1和command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来。请填空。
option base 1
dim a(3,2) as integer
private sub command1_click()
for i=1 to 3
for j=1 to 2
_ a(i,j)__i+j
next j
end sub
private sub command2_click()
for j=1 to 3
for i=1 to 2
s=s+__a(j,i)__
next i
next j
_s___end sub
二、读程序题,写出程序运行结果(每小题5分,共15分)
1、写出下面程序的输出结果
private sub form_click()
static sum as integer
i = 1do while i<=10
sum = sum + i
i = i + 1
loopprint sum
end sub
答552、写出下面程序的输出结果
private sub form_click()
print “*tab(6); 2, tab(15); 5
printfor i = 15 to 16
print i;
for j = 2 to 6 step 3
print tab(3 * j); j * i;
next j
printnext i
end sub
答* 2 5
3、写出下面程序的输出结果。
for i=3 to 1
print spc(10-i);
for j=1 to 2*i-1
print “*
next j
printnext i 答***
三、编程题(第一小题10分,第二小题15分,共25分)
1、编程计算1—100之间的奇数和,并输出结果。
private sub form_load()
autoredraw = true
dim i%, result&
sesult = 0
for i = 1 to 99 step 2
result = result + i
next i
print "1--100之间的奇数和=";result
end sub
2、编写**计算1!..10!,并将其依次添加到list1中。list1中的每一项分别为:1!=1, 2!=2 ,.请用list1的additem方法添加)
private sub form_load()
dim i as integer, result as long
for i = 1 to 10
result = 1
for j = 1 to i
result = result * j
next j
p = format(iformat(result
p, i - 1
next i
end sub
北航13年12月课程考试《电子商务基础》考核要求答案
5 证书的归档,证书具有一定的有效期,证书过了有效期之后就将作废,但是我们不能将作废的证书简单地丢弃,因为有时我们可能需要验证以前的某个交易过程中产生的数字签名,这时我们就需要查询作废的证书。基于此类考虑,认证中心还应当具备管理作废证书和作废私钥的功能ca认证中心的五种基本功能 证书的颁发 更新 查...
北航13年12月课程考试《大学物理 上 》考核要求
北航13年12月课程考试 大学物理 上 考核要求。一 选择题 每小题2分,共15小题,共计30分 1 质量为m的物体放在升降机地板上,摩擦系数为 当升降机以加速度a上升时,欲拉动m的水平拉力至少为 a a m g a b mgc mg d m g a 2 半径为r质量为m的均匀圆盘,挖去直径为r的一...
北航13年6月课程考试《技术经济学》考核要求
答 可行性研究是一个综合的概念,他是一门运用多种学科的知识,寻求使投资项目达到最好经济效果的综合研究方法。他的任务是以市场为前提,技术为手段,经济效益为最终目标,对拟建的投资项目,在投资决策前,全面 系统论证该项目上马的必要性 可行性 有效性和合理性,作出对项目可行或不可行的评介。机会研究阶段的主要...