[单项选择题]函数过程Fun1的功能是：如果参数b为奇数，则返回值为1,否则返回值为0。
FunctionFun1(bAsInteger)
if______Then
Fun1=0
Else
Fun1=1
EndIf
EndFunction
使该功能完整，应在空行处填入以下哪条语句
A．bMod2＜＞0
B．bMod2=0
C．b/2=1
D．b2=0

[单项选择题]自定义的异常类可从()类继承。
A．Error
B．AWTError
C．VirtualMachineError
D．Exception及其子集

[填空题]在AWT包中，创建一个具有10行、45列的多行文本区域对象ta的语句是【12】。

[单项选择题]设A为已定义的类名，下列是声明A类的对象a的语句中正确的是（）。
A．ello
B．hell
C．hello
D．hl

[问答题]有一个工程文件ylc6.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，则滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”，如图18所示。

题目中提供的“移动”按钮控件Command1的Click事件的源代码如下：
PrivateSubCommand1_Click()
DimnCountAsInteger
nCount=CInt(Text1.Text)
If(nCount＞=)Then
HScroll1.Value=HScroll1.Max
Else
If(nCount＜=HScroll1.Min)Then
=HScroll1.Min
MsgBox("文本框中的数字太小")
Else
HScroll1.Value=
EndIf
EndIf
EndSub
注意：不能修改程序中的其他部分，不能修改控件的属性，最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。

[单项选择题]以下程序段的输出结果为()
Dima(10),p(3)
k=5
Fori=0To10
a(i)=i
Nexti
Fori=0To2
p(i)=a(i+(i+1))
Nexti
Fori=0To2
k=k+p(i)+2
Nexti
Printk
A．20
B．21
C．56
D．32

提出现代生物-心理-社会医学模式是（）

A.恩格尔B.波特C.托马斯·帕茨瓦尔D.比彻尔E.桑德斯

付款人在进行付款时无（）

A.形式审查义务

B.实质审查义务

C.附带审查义务

D.票据外有关事项的审查义务

根据《公司法》的规定,有限责任公司下列人员中,可以提议召开股东会临时会议的是()。
A.总经理B.人数过半数的股东C.监事会主席D.人数为半数的董事

关于股份有限公司中的监事会，下列说法错误的是()

A.监事会负责提议聘请或更换外部审计机构B.监事会主席和副主席由全体监事过半数选举产生C.监事会中的职工代表的比例不得低于三分之一D.监事会应至少每6个月召开一次会议

三北精神的科学内涵