问题 单项选择题

有如下的程序:  Private Sub Command1_Click( )   Dim k As Integer,m As Integer   Dim P As Integer   k=4:m=1   P=Pid(k,m) :Print P;   P=Pid(k,m) :Print P  End Sub  Private Function Pid(a As Integer,b As Integer)   Static m As Integer,i As Integer   m=5:i=2   i=i + m + 1   m=i + a + b   Pid=m\2  End Function  单击命令按钮后,输出结果为( )。

A. 标准模块也称程序模块文件,扩展名是.bas

B. 标准模块由程序代码组成

C. 标准模块只用来定义一些通用的过程

D. 标准模块不附属于任何一个窗体

答案

参考答案:C

解析:方法是对象的一部分,所以选项A)的表述是正确的;其调用格式为:对象名.方法名称,与属性的使用格式相同,所以选项D)是正确的;方法在调用时,可以省略对象名,但这只限于当前窗体(或控件),如果不是当前窗体或控件要加上对象名称,所以选项B)是不正确的;方法是一种特殊的过程和函数,所以选项C)是正确的。

选择题
问答题

2002年3月2日,A展览公司(以下简称“A公司”)与B公司签订了一份价值为100万元的展览设备买卖合同。该合同约定:(1)A公司于3月3日向B公司签发一张金额为人民币15万元的银行承兑汇票作为定金;(2)B公司于3月10日交付展览设备;(3) A公司于B公司交付展览设备之日起3日内付清货款;(4)任何一方违约,应当依照合同金额的20%向守约方支付违约金。
3月3日,A公司依约向B公司签发并交付了一张由C银行承兑和付款的金额为15万元的银行承兑汇票,B公司在收到该汇票后,于3月4日将其背书转让给D公司。3月10日,B公司未向A公司交付设备,经A公司催告后至3月15日,B公司仍未交货,A公司遂于3月18日另行购买了设备,并通知B公司解除合同,要求B公司双倍返还定金 30万元,同时支付违约金20万元。B公司收到A公司通知后未就解除合同提出异议,但不同意A公司提出的双倍返还定金和支付违约金的要求。
3月9日,D公司取得的上述汇票不慎被盗。3月10日,王某用盗得的上述汇票以D公司的名义向E公司购买汽车一辆,并以D公司的名义将该汇票签章背书转让给E公司作为支付购买汽车的价款。3月12日,E公司为支付F公司货款,又将该汇票背书转让给 F公司。4月5日,F公司在该汇票到期日向C银行提示付款;C银行拒绝支付票款。
要求:根据上述事实,回答下列问题:
(1)A公司向B公司主张解除合同是否符合《合同法》的规定并说明理由。
(2)B公司收到A公司解除合同的通知后,双方之间签订的买卖合同是否已经解除并说明理由。
(3)A公司要求B公司双倍返还定金30万元,同时支付违约金20万元是否符合《合同法》的规定并说明理由。
(4)F公司可以向哪些当事人行使追索权并说明理由。