第一篇：中国海洋大学2017春上机试题高档题答案
高等 【问题描述】将整型参数x中每一位上为偶数的数依次取出，构成一个新数返回。高位仍在高位，低位仍在低位。
【输入形式】从标准输入中输入一个长整形数 【输出形式】将生成的序列输出到标准输出中 【样例输入】x=124578902 【样例输出】y=24802 #include
num=x%10;
if(num%2==0)
{
s=s+num*wei;
wei=wei*10;
}
x=(x-num)/10;} return s;} 【问题描述】
计算并返回满足表达式： 1+（1+2）+（1+2+3）+（1+2+3+4）+……+（1+2+3+……+n）<=m 最大的n。【输入形式】
从标准输入中输入一个长整形数m 【输出形式】
将生成的最大n输出到标准输出中 【样例输入】 m=10000 【样例输出】 n=38 #include
for(i=1;i<=n;i++)s=s+i;} return n-2;} 【问题描述】输出比x大的最初k(k<1000)个素数,x和k键盘输入，输出时用一个空格分隔数据。注意最小的素数是 2。【样例输入】7 10 【样例输出】11 13 17 19 23 29 31 37 41 43 【样例说明】-7 10 【样例输出】2 3 5 7 11 13 17 19 23 29 #include
{
x=2;
fun(x,k);} if(x>2)//x>2时素数由x+1开始找起；
{
x=x+1;
fun(x,k);} } void fun(int n,int k){ int j,i;j=0;//记录输出的素数数量
for(;j for(i=2;i<=sqrt(n);i++) { if(n%i==0)break; } if(i>sqrt(n)) { printf(“%d ”,n); j++; } } } 【问题描述】字符串str中单词以空格作分隔，如果单词之间不止一个空格，则删除多余的空格，使单词之间只保留一个空格。字符串开始的空格也只保留一个。【输入形式】从标准输入中输入字符串 【输出形式】将生成的序列输出到标准输出中 【样例输入】It's 10:10 o'clock , I am late.【样例输出】It's 10:10 o'clock , I am late.#include gets(s);for(i=0;s[i]!=' ';i++){ if(s[i]==' '&&s[i+1]==' ') { for(n=i;s[n]!=' ';n++)s[n]=s[n+1]; i--;//因为可能有两个以上空格相连的情况，需要退位检测接下来还有没有空格 } } puts(s);}！【问题描述】 有int型5×6二维数组，分别将每一行的最大值与本行的最后一个数据（第6-1列数据）对调，其余数据保持不变。然后按每一行的最大值对二维数据各行降序排序并输出变换后的数组。【输入形式】 从标准输入中输入一个5*6的二维数组 【输出形式】 将生成的二维数组输出到标准输出中 【样例输入】（输入的数据的范围【999，-999】）11 52 43 4 25 22 22 33 46 58 16 47 83 42 54 26 47 0 4 5 6 7 8 9 45 96 17 18 39 2 【样例输出】（输出时用格式符%5d）45 2 17 18 39 96 0 42 54 26 47 83 22 33 46 47 16 58 11 22 43 4 25 52 4 5 6 7 8 9 #define M 5 #define N 6 #include fun(a);for(m=0;m for(n=0;n printf(“n”);} } void fun(int a[M][N]){ int m,n,k,i,t;for(m=0;m } { k=0;//k:记录第二下标 for(n=1;n if(a[m][k] t=a[m][k]; a[m][k]=a[m][N-1]; a[m][N-1]=t;} } for(m=0;m for(n=m+1;n if(a[k][N-1] if(m!=k) { for(i=0;i { t=a[k][i]; a[k][i]=a[m][i]; a[m][i]=t; } //将第k行与第m（m=0,1,2,3,4）行交换； } } } 【问题描述】在字符串s中，每两个字母之间加一个*，其余字符保持不变并输出字符串。【输入形式】从标准输入中输入一个字符串 【输出形式】将生成的字符串序列输出到标准输出中 【样例输入】I had 123_book.【样例输出】I h*a*d 123_b*o*o*k.#include char s[1000];int l,i;gets(s);l=strlen(s);for(i=0;i if(((s[i]>='a'&&s[i]<='z')||(s[i]>='A'&&s[i]<='Z'))&&((s[i+1]>='a'&&s[i+1]<='z')||(s[i+1]>='A'&&s[i+1]<='Z'))) printf(“%c*”,s[i]); else printf(“%c”,s[i]);} } 【问题描述】实现十进制长整型数x到二进制的转换。输入一个十进制数，将其转换为二进制数以字符串形式存放于数组中并输出。【输入形式】 从标准输入中输入一个长整型数 【输出形式】 将转换后的二进制数输出 【样例输入】 13 【样例输出】 1101 【样例说明】 考虑正数、负数和零的情况 //除2取余，倒序输出 #include x=-x; while(x!=0) { num=x%2; n[i]=num; i++; x=x/2; } i--; n[i]=-n[i];//x<0时把最后一位转为负数即可（输出时的第一位） } if(x>0){ while(x!=0) { num=x%2; n[i]=num; i++; x=x/2; } i--;//因为上方的i++最终多加一位 } for(;i>=0;i--)printf(“%d”,n[i]);} 【问题描述】统计字符串str中不同字符的个数输出。【输入形式】从标准输入中输入一个字符串 【输出形式】将生成的个数输出到标准输出中 【样例输入】One world,One dream!【样例输出】13 【样例说明】统计包含标点符号和空格，大写和小写视为不同字符。 #include int l,i,j,num;gets(s);l=strlen(s);num=l;//num初始值为字符串长度，扫描到相同字符时才减 for(i=0;i key=s[i]; if(s[i]!=NULL) { for(j=i+1;j { if(s[j]==key) { num--; s[j]=NULL;//若s[j]与之前字符相同，在总数中减去其后将其置为NULL,以防再次成为key } } } } printf(“%d”,num);} 【问题描述】输入一个正整数n,计算1-1/4+1/7-1/10+1/13-1/16+……的前n 项之和,输出时保留3位小数。 【输入形式】从键盘输入一个正整数n。【输入输出样例1】（下划线部分表示输入）Enter n: 3 sum=0.893 #include } double sum=0;printf(“Enter n: ”);scanf(“%d”,&n);for(i=1;i<=n;i++){ fm=fm+3;if(i%2!=0){ sum=sum+1.0/fm;} else { sum=sum-1.0/fm;} } printf(“sum=%.3lf”,sum);【问题描述】输入2个正整数m和n(m≥1，n≤1000)，输出m ~n 之间所有Fibonacci数的个数及值｡要求定义并调用函数fib(k)，它的功能是返回第k项Fibonacci 数｡例如，fib(7)的返回值是13｡ 【输入形式】从标准输入中输入一个范围m n(m n之间用空格分隔)【输出形式】将生成的个数输出到标准输出中，并输出fibonacci数列(冒号后无空格)【样例输入】1 5 【样例输出】5 fib:1 1 2 3 5 #include int a[100];scanf(“%d %d”,&m,&n);for(i=1;;i++){ num=fib(i); if(num>=m&&num<=n) { a[j]=num; j++; } if(num>n)break;} printf(“%d fib:”,j);for(i=0;i 【输入形式】从标准输入中输入一组字符串 【输出形式】将生成的个数输出到标准输出中 【样例输入】It's 10:10 o'clock ,I am late.【样例输出】6 #include char s[100];gets(s);l=strlen(s);for(i=0;i if(s[i]==' '||s[i]==','||s[i]=='.')flag=0; else if(flag!=1)//flag!=1表示上一个字符并不也是字母 { flag=1; num++; } } printf(“%d”,num);} 国际贸易实务模拟试题五 一、填空题（每题1分，共10分） 1、在象征性交货方式下，卖方是凭（）交货，买方是凭（）付款。 2、卖方承担责任最小、负担费用最少的贸易术语是（）。 3、在DEQ交货条件下，卸货费由（）承担。 4、采用EXW贸易术语成交，卖方的交货地点是在（）。 5、EXW代表了在商品的（）或（）的交货条件。 6、F组贸易术语的共同点是主要运费由（）承担。 7、C组贸易术语的一个共同点是：从交货地点到目的地的运输事项均由（）负责办理。 8、按C组贸易术语达成的交易，风险均在出口国的交货地点由（）转移给（）买方。 9、采用FCA贸易术语，货物运输契约由（）订立。 10、在进口国内地交货的贸易术语是（）和（）。 二、单选题（每题1分，共20分） 1、《2000通则》将贸易术语归纳为（b）种。 A.11 B.13 C.14 D.16 2、《2000通则》中，卖方承担的责任、费用最小的贸易术语是（）。A.EXW B.DDP C.DDU D.FCA E.CIF 3、《2000通则》中，组贸易术语包括（）种。 A.1 B.2 C.3 D.4 E.5 4、最早制定的解释贸易术语的国际贸易惯例是（）。 A.《1932年华沙——牛津规则》 B.《1941年美国对外贸易定义修订本》 C.《1936年国际贸易术语解释通则》 D.《1990年国际贸易术语解释通则》 5、就买方承担的货物风险而言，（）。 A.E组最大，F组其次，C组和D组最小 B.D组最大，F组和C组其次，E组最小 C.D组最小，E组其次，F组和C组最小 D.E组最大，F组和C组其次，D组最小 6、属于顺汇的付款方式是（）。 A.银行保函 B.信用证 C.托收 D.汇付 7、T/T是（）。 A.信汇 B.电汇 C.票汇 D.汇票 8、支票上的受票人是（）。 A.存款客户 B.收款人 C.银行 D.债权人 9、信用证的开证银行是（）。 A.第一付款人 B.第二付款人 C.最后付款人 D.担保付款人 10、出口业务中，如果国外进口商开来支票作为支付凭证，为防止对方开立空头支票，可以要求对方出具（）。 A.划线支票 B.记名支票 C.保付支票 D.一般支票 11、在国际货物买卖中，较常采用的不可抗力事故范围的规定方法是（）。 A.概括规定 B.不规定 C.具体规定 D.综合规定 12、多数国家的法律都规定，仲裁的裁决是（）。 A.终局性的B.可以上诉的C.可以更改的D.无约束力的 13、以下（）不是检验证书的作用。 A.作为证明买方所交货物的品质、重量（数量）、包装以及卫生条件等是否符合合同规定 9、买卖合同中的违约金条款一般适用于（）。 A.卖方延期交货 B.卖方交付数量不足 C.买方延迟开立信用证 D.买方拒不付款 E.买方延期接运货物 10、在对外索赔和理赔过程中，除妥善保护好受损货物外，（）是很关键的问题。 A.必须在合同订明索赔的权利 B.想法核实对方的财产 C.收集好索赔的依据 D.掌握好索赔的期限 四、判断题（每题1分，共10分） 1、《2000通则》适用于运输方式。（） 2、《2000通则》适用于“有形”货物，也适用于“无形”货物。（） 3、《2000通则》是一套国际贸易惯例，但它也可用于国内货物买卖。（） 4、保兑信用证的保兑行只有在开证行不履行付款义务时，才履行付款义务。（） 5、《UCP7000》既适用与跟单信用证，也适用于备用信用证。（） 6、出口商采用D/A30天比采用D/P30天承担的风险要大。（） 7、在国际贸易中，一旦发生了合同规定的不可抗力事件，就只能解除合同。（） 8、仲裁协议一定要在争议发生前签订，否则仲裁机构将不予受理。（） 9、引起不可抗力事故的原因包括由于“自然力量”和“社会力量”引起的所有灾害和意外 事故。（） 10、根据《联合国国际货物销售合同公约》规定，一项有效的发盘必须载明有效期。（） 五、问答题（每题4分 共20分） 1．在凭买方样品洽谈业务时应注意哪些问题？ 2．何为包装标志？包装标志有哪些？制作包装标志时应注意哪些问题？ 3．为什么要在国际货物买卖合同中规定数量机动幅度条款？数量机动幅度是如何规定的？ 4、合同的装运条款主要包括哪些？ 5、国际多式联运应当具备哪些条件？ 六、案例分析（每题10分，共30分） 1、我某公司以CFR条件出口一批瓷器.我方按合同的规定按期在装运港装船后，及时将包括提单在内的全套单据通过银行寄交买方并要求买方支付货款。此时，因为货物在运输途中因海上风险而损毁，买方闻之，随来函向我方提出索赔。问：（1）如果我方已及时向买方发出装船通知，我方能否拒绝买方的索赔？（2）如果业务人员由于业务上的疏忽，忘记向买方发出装船通知，我方能否拒绝买方的索赔？ 2、我某外贸企业与新加坡A商签订一份出口合同，付款条件为付款交单，见票后45天付款。当汇票及所付单据通过托收行寄交代收行后，A商在汇票上履行了承兑手续。货抵目的港时，汇票付款期限尚未到期。由于A商用货心切，故出具信托收据向代收行借得单据，并提货转售。待汇票到期时，A商因经营不善，失去偿付能力。代收行以汇票付款人拒付为由通知托收行，并建议由我外贸企业直接向A商索取货款。对此，你认为我外贸企业应如何处理？ 3、我国某出口企业以CIF纽约于美国某公司订立了200套家具的出口合同。合同规定12月交货。11月底，我企业出口商品仓库发生雷击火灾，致使一半左右的出口家具烧毁。我企业以发生不可抗力事故为由，要求免除交货责任，美方不同意，坚持要求我方按时交货。我方经过多方努力，最后无奈之下于次年1月初交货，美方要求索赔。试分析(1)我方要求免除责任的要求是否合理？为什么？（2）美方的索赔要求是否合理？为什么？ 即算完成交货。因此，其装运条款主要有装运时间、装运港、目的港、是否允许分装与转船、装运通知以及滞期、速遣、装运通知条款等项内容。 5、（1）多式联运经营人与托运人之间要签订一份多式联运合同，以明确承、托双方的权利、义务、责任和豁免。（2）、必须通过两种或两种以上运输方式的连贯运输。（3）、必须使用一份包括全程的多式联运单据（multimodal transport documents, MTD）（我国使用C.T.B/L）。（4）、必须由一个多式联运经营人对全程运输负总的责任。并由多式联运经营人对全程负责。（5）、必须是国际间的货物运输。（6）、必须是全程统一运价，一次收取。其中包括全程各段运费的总和、经营管理费用和合理利润。 六、案例分析 1、（1）如果我方已及时向买方发出装船通知，那么货运途中的风险概由买方承担。因为：按《2000通则》解释，卖方负责在合同约定的装运港装运货物，装运后要及时向买方发出装运通知以便买方及时办理保险手续，买方承担货物越过船舷后的一切风险。因此，对于货运途中因遇风浪而遭致的货物损毁，应由买方承担损失，我方可以根据相关的国际惯例向买方索偿货款。 （2）如果业务人员由于业务上的疏忽，忘记向买方发出装船通知，那么我方即卖方应承担运输途中遭致的货物损失。因为：根据惯例规定，如果货物在运输途中遭受损失或灭失，是由于卖方未及时发出通知而使买方漏保，那么卖方就不能以风险在船舷转移为由而免除责任。由此可见，在本案中，是否发出装船通知对能否收回货款至关重要。 2、我外贸企业应通过托收行要求代收行承担付款责任。因为我方对外签订的合同条款是付款交单，见票后45天付款。而代收行凭A商的信托收据就将单据借给了A商，这是代收行自己向进口商提供的信用便利，而与出口人没有关系。A商失去偿付能力，代收行应对我出口企业负全部责任。我企业不能接受代收行要我方直接向A商索款的建议 3、（1）本案中，我方遭受了出口商品仓库发生雷击火灾，致使一半左右的出口家具烧毁，属于不可抗力事故，我方可以发生不可抗力事故为由，向对方提出延期履行合同的要求，但不能提出解除合同的要求。 （2）美方的索赔要求不合理。因为，既然发生了不可抗力事故，且已备好的货物一半左右被烧毁，这必然影响我方的交货时间。另外，不可抗力是一项免则条款，可免除遭受不可抗力事故一方不能如期履约的责任。美方应考虑实际情况同意我方延期履行合同。因此，美方的索赔要求是不合理的。 1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分） 参考答案： Private Sub Form_Click() Cls For i = 1 To 9 For j = 1 To i Print i * j;“ ”; Next j Print Next i End Sub 2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。 要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分） 参考答案： Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Text1.FontUnderline = Check3.Value End Sub 3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分） 参考答案： Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub List1_DblClick() List1.RemoveItem List1.ListIndex End Sub 4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下： 文件：file，新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE（本题不用编程，30分） 参考答案：略 上机操作练习题 1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。 Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20 a(i)= Int(Rnd * 90)+ 10 Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10 j = 211 a(k)= a(k + 1) Next k ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。 注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。 如： 歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分 / 19 Option Base 1 Private Type geshou xuhao As String fenshu(6)As Integer score As Integer pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6 singer(i).fenshu(j)= Int(Rnd * 100) singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub Private Sub paixu()Dim p As geshou For i = 1 To 4 For j = 1 To 5 For k = j To 6 If singer(i).fenshu(j)> singer(i).fenshu(k)Then t = singer(i).fenshu(j) singer(i).fenshu(j)= singer(i).fenshu(k) singer(i).fenshu(k)= t End If Next Next Next For i = 1 To 4 For j = 2 To 5 singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next For i = 1 To 3 For j = i To 4 If singer(i).score < singer(j).score Then p = singer(i): singer(i)= singer(j): singer(j)= p End If Next / 19 Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10 For j = 1 To 10 a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10 max = a(i, 1): sum = 0 min = a(i, 1): ave = 0 For j = 1 To 10 If a(i, j)> max Then max = a(i, j) If a(i, j)< min Then min = a(i, j) sum = sum + a(i, j) Next j ave =(summin)/(n1 For j = i + 1 To n If b(i)< b(j)Then t = b(i): b(i)= b(j): b(j)= t End If Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10 Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。 注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”) / 19 b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。 Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。 Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5 If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e For j = 1 To n If j > i Then a(i, j)= 0 Else If i = j Then a(i, j)= 1 Else a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1) c = c + 1 s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else x = x / 2 End If i = i + 1 Loop ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a) / 19 convert = convert & a(i)Next End If End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y) End Sub Private Sub Form_Load() End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。 Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n a(i)= Int(Rnd * 10 * n + 1) Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then List1.AddItem(i) c = c + 1 If i Mod 10 = 9 Then / 19 List1.Selected(c1 If n Mod i = 0 Then isprime = False Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click() Dim i As Integer, j As Integer, a(40)As Long a(1)= 1 a(2)= 1 For i = 3 To 40 a(i)= a(i2) Next i sum = 0 For j = 1 To 40 sum = sum + a(j) Next j End Sub Private Sub Command2_Click() Open ”out18.txt“ For Output As #1 Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“ Print #1, sum Close #1 End Sub 1.百钱买百鸡 Option Explicit Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34 For b = 1 To 20 If 3 * a + 5 * b +(100b)/ 3 = 100 Then / 19 Print a; Print b; Print 100b End If Next b Next a End Sub 2.分钱作业 Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50 b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1 If a(i)= a(j)Then GoTo aaa End If Next j Next i For i = 1 To 10 Print a(i);Next i Print End Sub Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9 For j = 1 + i To 10 If a(i)> a(j)Then t = a(j) a(j)= a(i) a(i)= t End If Next j Next i For i = 1 To 10 Print a(i);Next i Print End Sub Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9 For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2 If i ^ 2c = 0 Then Exit Do Else a = i End If Loop MsgBox(i)End Sub 7.闰年 Option Explicit Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then If i Mod 100 <> 0 Then MsgBox ”NOT“ Else MsgBox ”YES“ End If Else MsgBox ”NOT“ End If End Sub 8.三角 Option Explicit Private Sub Command1_Click() / 19 Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single a = Text1.Text b = Text2.Text c = Text3.Text p =(a + b + c)/ 2 s = Sqr((pb)* p +(p1 If n Mod i = 0 Then MsgBox ”NOT“ Exit For End If Next i If i = n Then MsgBox ”YES“ End If End Sub Private Sub Command2_Click() Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1 If n Mod i = 0 Then a = True Exit For End If Next i If a = True Then / 19 MsgBox ”NOT“ Else MsgBox ”YES“ End If End Sub Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n If n Mod i = 0 Then MsgBox ”NOT“ Exit Do End If i = i + 1 Loop If i = n Then MsgBox ”YES“ End If End Sub Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True If n Mod i = 0 Then sushu = False End If i = i + 1 Loop If sushu = True Then MsgBox ”YES“ Else MsgBox ”NOT" End If End Sub / 19 一、名词解释（每题5分，本题共10 分） 1、现实主义绘画 17世纪初与样式主义和学院艺术相对立的是现实主义艺术,最主要的代表人物是卡拉瓦乔.卡拉瓦乔主义影响了整个欧洲,把现实主义摧向一个新阶段.它带有鲜明的时代气息和民族民主思想,顺应了时代潮流.宗教题材世俗化,更加注重对真实生活的反映,与下层生活密切相关.丰富了绘画技法.影响了后来的新古典主义 批判现实主义 印象主义.卡拉瓦乔(意):酒神巴库斯 基督下葬 抱水果篮的孩子 女卜者.伦勃朗(荷):夜巡."荷兰''小画派-哈尔斯(荷):吉卜赛女郎.维米尔(荷):花边女工 倒牛奶的女仆.委拉斯贵支(西):宫娥 画家的一家 教皇英诺森十世肖像.穆立罗(西）:乞童 现实主义是19世纪从日本翻译过来的，也称写实主义从技巧、技法上讲是写实主义，从意识形态和观念上讲是现实主义。 什么叫现实主义?现实主义应该是关注人生、关注生活、关注现实。从具体技法上讲是要求写实的，是写实主义而不是抽象主义。现实主义范围有多大?有没有边界?20世纪50年代法国的新现实主义文学家、艺术家就提出过无边的现实主义。现实主义是无边的，即从观念上、从表意形态上讲可以是无边的，这一提法扩充了现实主义的内涵，赋予了新的内容。 现实主义是艺术发展进程中一种独特的艺术现象，指19世纪产生的艺术思潮，又称之为“写实主义”，这个流派是使用现实主义艺术创作方法的，现实主义艺术家赞美自然，歌颂劳动，深刻而全面地展现了现实生活的广阔画面，尤其描绘了普通劳动者的生活和斗争，此时劳动者真正成为绘画中的主体形象，大自然也作为独立的题材受到现实主义画家青睐。 二、美术作品分析（每题8分，本题共40 分） 《游春图》卷, 隋，展子虔作 这是一幅山水画，描绘了人们在风和日丽，春光明媚的季节，到山间水旁“踏青”游玩的情景。全画以自然景色为主，人物点缀其间。湖边一条曲折的小径，蜿蜒伸入幽静的山谷。人们或骑马，或步行，沿途观赏着青山绿水、花团锦簇的胜境。在波光粼粼的湖面上，一艘游艇缓缓荡漾，船上坐着的几个女子似被四周景色所陶醉，流连忘返。山腰和山坳间建有几处佛寺，十分幽静，令人神往。画家运用细而有力的线条勾画出物象的轮廓，人物虽然小如豆粒，但一丝不苟，形态毕现。山石树木只用线条画出，可以看到行笔的轻重、粗细、顿挫、转折的变化，但尚未见到唐代以后绘画中出现的皴擦技法。 作品的色彩浓丽厚重，山石树木均以矿物制成的石青、石绿颜料赋色，以青绿的色彩为主调，建筑物和人物、马匹间以红、白诸色，既统一和谐，又富有变化。亮丽的色彩亦更好地衬托出大好河山盎然勃发的春天气息。 《游春图》卷历来被认为是隋朝画家展子虔的作品，代表了中国早期山水画的面貌。近些年有学者对于这幅作品的作者和时代提出了不同的看法，引起了讨论。画上有宋徽宗赵佶写的“展子虔游春图”六字。它生动地描绘出我国大地上的明媚春光和游人在山水中纵情游乐的神态。各种花树点满山野，桃红柳绿，相映成正职。山上有骑马的游人，水中有乘船的妇女，瀑布前有桥，远山近坡，层次显明。在色彩上，运用了浓重的青绿填色，作为全画的主调，有勾无皴。这种浓重的青绿色调，正是春天自然景色的特征。 2、《韩熙载夜宴图》 《夜宴图》采用了我国传统表现连续故事的手法，随着情节的进展而分段，以屏风为间隔，主要人物韩熙载在每段中出现。通过听乐、观舞、歇息、清吹、散宴等情节，叙事诗般描述了夜宴的全部情景。画家在构图上作了精心安排，每段一个情节、一个地点、一个人物组合，每段相对独立，而又统一在一个严密的整体布局当中，繁简相约，虚实相生，富有节奏感，图中三个屏风绝不雷同的处理方法体现了画家巧妙的构思。人物的趋向动势变化丰富，疏密向背有致，神态动静相宜，全图之势蓄于画卷之内，紧密而富有张力。第三段景物中安置了一枝烛台，红烛高照，点明了《夜宴图》特定的时间，而并不精心描绘夜色，这种中国传统式的意象表现手法与方式共同构成了一种“有意味的形式”。通过对不同对象的形体姿态、目光手势的相应描绘，画中人物有的弹奏舞蹈，有的按拍欣赏，情态生动。而对主人公刻意描绘，曲尽神形。韩熙载形体高大轩昂，长髯，戴高巾，从倚栏倾听，到挥锤击鼓，直到曲终人散，各个不同的场合始终眉峰双锁，若有所思，沉郁寡欢，与夜宴歌舞戏乐的场面形成鲜明对比，表现了韩熙载复杂的内心世界，刻画了人物特殊的个性，十分传神，由此深化了《夜宴图》的内涵。无论是设色还是用笔，《夜宴图》的表现技法堪称精湛娴熟。《夜宴图》用笔挺拔劲秀，线条流转自如，铁线描与游丝描结合的圆笔长线中，时见方笔顿挫，颇有韵味。人物衣纹组合丰富有变化，须发的勾画“毛根出肉，力健有余”，画尽意在，塑造了富有生命活力的艺术形象。画面中屏风和床榻等家具的使用，具有一种特殊的作用，一方面起到了分隔画面，使每段画面可以独立成章。另一方面又把各段画面连系起来，使整个画卷形成了一个统一的画面。在人物形象的刻划上，更凸显画家卓绝的功底，特别是主要人物韩熙载，分别在五个画面之中出现，但每个场景的服饰、动作、表情都不尽相同，但他的形态与性格却都表现的前后一致。《韩熙载夜宴图》在用笔设色等方面也都达到了很高的水平，如韩熙载面部的胡须、眉毛勾染的非常到位，蓬松的须发好似从肌肤中生出一般。人物的衣纹组织的既严整又简练，非常利落洒脱，勾勒的用线犹如屈铁盘丝，柔中有刚。敷色上也独有匠心，在绚丽的色彩中，间隔以大块的黑白，起着统一画面的作用。人物服装的颜色用的大胆，红绿相互穿插，有对比又有呼应，用色不多，但却显得丰富而统一。可以看出服装上织绣的花纹细如毫发，极其工细。所有这些都突出地表现了我国传统的工笔重彩画的杰出成就，使这一作品在我国古代美术史上占有重要的地位。 3、《清明上河图》清明上河图》是一幅具有历史价值的风俗长卷。作者通过对清明节日北宁都城汴梁（今开封）和以虹桥为中心的汴河两岸各阶层人物活动情景的描绘，集中反映了这一历史时期社会生活的一些侧面。翰林张择端（公元十二世纪），山东诸城人，是北宋末期职业画家，曾在画院任职，擅长画人物、楼阁、舟车等。图中所绘城廓市桥屋庐之远近高下，草树马牛驴驼之大小出没，以及居者行者，舟车之往还先后，皆曲尽其意态而莫可数记，全幅场面浩大，内容极为丰富。画家用高度概括和集中的手法，广泛而细致地描写了各种复杂的社会形象和民俗风貌.全图分 为 三个段落。在疏林薄雾中，掩映着几家茅舍、草桥、流水、老树、扁舟。两个脚夫赶着五匹驮炭的毛驴，向城市走来。一片柳林，枝头 刚刚泛出嫩绿，使人感到虽是春寒料峭，却已大地回春。路上一顶轿子，内坐一位妇人。轿顶装饰着杨柳杂花，轿后跟随着骑马 的、挑担的，从京郊踏青扫墓归来。环境和人物的描写，点出了清明时节的特定时间和风俗，为全画展开了序幕。这幅画描绘的是汴京清明时节的繁荣景象，是汴京当年繁荣的见证，也是北宋城市经济情况的写照。通过这幅画，我们了解了北宋的城市面貌和当时各阶层人民的生活。《清明上河图》的中心是由一座虹形大桥和桥头大街的街面组成。粗粗一看，人头攒动，杂乱无章；细细一瞧，这些人是不同行业的人，从事着各种活动。大桥西侧有一些摊贩和许多游客。货摊上摆有刀、剪、杂货。有卖茶水的，有看相算命的。许多游客凭着桥侧的栏杆，或指指点点，或在观看河中往来的船只。大桥中间的人行道上，是一条熙熙攘攘的人流；有坐轿的，有骑马的，有挑担的，有赶毛驴运货的，有推独轮车的„„大桥南面和大街相连。街道两边是茶楼，酒馆，当铺，作坊。街道两旁的空地上还有不少张着大伞的小商贩。街道向东西两边延伸，一直延伸到城外较宁静的郊区，可是街上还是行人不断：有挑担赶路的，有驾牛车送货的，有赶着毛驴拉货车的，有驻足观赏汴河景色的。汴河上来往船只很多，可谓千帆竞发，百舸争流。有的停泊在码头附近，有的正在河中行驶。有的大船由于负载过重，船主雇了很多纤夫在拉船行进。有只载货的大船已驶进大桥下面，很快就要穿过桥洞了。这时，这只大船上的船夫显得十分忙乱。有的站在船篷顶上，落下风帆；有的在船舷上使劲撑篙；有的用长篙顶住桥洞的洞顶，使船顺水势安全通过。这一紧张场面，引起了桥上游客和邻近船夫的关注，他们站在一旁呐喊助威。《清明上河图》将汴河上繁忙、紧张的运输场面，描绘得栩栩如生，更增添了画作的生活气息。张择端具有高度的艺术概括力，使《清明上河图》达到了很高的艺术水准。《清明上河图》丰富的内容，众多的人物，规模的宏大，都是空前的。《清明上河图》的画面疏密相间，有条不紊，从宁静的郊区一直画到热闹的城内街市，处处引人入胜。 5、《最后的晚餐》 这幅画的构图并不复杂，基本上是在一直线上穿插变化的，但单纯中见丰富。画家把十三个人物有机地组合在一起，既有区别又有紧密联系，既突出了基督的主要形象，又层次分明地刻划出每一个人的外貌和性格特征。画家把耶稣安排在既是画面中心，又是视觉中心的位置，用背景中大门的透光，更加清楚地衬托出耶稣的形象，餐桌、墙壁门窗和天花板的处理取平行透视，都集中地消失在基督的形象上，这一切很自然地把观众的视线首先吸引到基督身上。并且有意识地把两侧的门徒和耶稣分开，初看耶稣似乎很孤立，实际上内在情绪和感情以及整个事件都把他们紧密联系在一起。十二个门徒三人一组平均分配在两边，以其各自的动作和表情与基督发生联系和呼应，整个环境和道具的处理比较简单，为的是更加突出激动的人物，再通过这些人物的动作和表情将整个画面的中心引向基督。 在构图上，耶稣两侧门徒以三人为一小组，有机地结合起来，高低起伏，疏密交错，显得自然生动，富有节奏，打破了容易呆板的对称格局。其中，11个门徒虽然姿态和手势不同，但都有一种向心感，并且和耶稣一起都处在明亮的光照中，唯独犹大采取离心的姿态，且处在阴影中，象征叛徒阴暗与背叛的心理。处于中心位置的耶稣神情泰然，其头部与伸展的双臂构成稳定的三角形，也形成画面的核心。而从他背后窗子投射进来的光线则如同神圣的光环，罩在他的头上，突出了人物的庄严与神圣。 三、简答题（每题15分，本题共30 分） 1、旧石器时代的艺术形式有哪些？简单介绍各种艺术形式？ 一、远砋的岩画、彩陶、青铜纹饰 原始岩画岩画是人类原始时代自我表达的艺术形式，在原始社会里，由于生产力低下，还没有阶级，在这时期出现的艺术，以其特有的风格富有魅力地反映了人类社会的童年。虽然它们不可避免地带有某种幼稚和粗糙的痕迹，但却表现出一种生动的、朴素的和富于幻想的特色，而且这种特色具有不可为后世任何卓越的艺术品所代替的独特性和独立性。我国古代岩画遗迹极为丰富，属于史前时期的岩画，基本上都是敲凿而成的岩刻画。例如阴山岩画，刻划着狩猎、舞蹈、部落战争及及天文图像等，以其题材丰富，形象古朴生动冠世。位于黄海之滨的岩画，敲凿出人面、太阳等图像，反映了古代古夷族的宗教观念。彩陶绘画新石器时代、马家窑文化、陶质彩绘。彩陶纹饰除了一些象形纹样之外，大多数是几何纹饰，最常见的有十余种纹样，马家窑文化中曲线构成的旋涡纹饰是结构最复杂、完美而又有典型意义的几何纹饰之一。作为器物纹样的几何装饰手法，这件作品反映了我国原始社会中高超的构图技巧。 彩绘的一些图像或反映当时的渔猎、农业、驯养动物的生产活动，或表现图腾崇拜、祈求神灵等宗教活动。这些图像象征含义丰富而神秘，艺术表现耐人寻味，引人探微。它们的背后闪耀着我们祖先的迷人智慧。 青铜纹饰中国青铜器纹饰是西代文明的产物和重要表现。最早的青铜器纹饰始于于里头文化期，出现在青铜器上的是实心连珠纹。但它的渊源可以追溯到远古的新石器文化时期，是在吸收新石器文化的基础上，经过长期融合、选择、发展而产生的一种文化艺术，并对后世的图纹装饰有一定的影响。动物纹是中国青铜器的纹饰主体，它们在青铜时代中绵延 1500 年，占绝对统治地位。可以说中国青铜器的纹饰，一开始就是以动物纹为主要内容的。主要有虎、牛、象、鹿、蛇、龟、蟾蜍、鱼、蝉、凤等动物纹饰。 2、古埃及法老的生死观？简单叙述他们的生死观与金字塔出现之间的关系？ 古埃及人的“死亡观”埃及法老死后长眠－再生－永生——木乃伊制作“永生”、虔诚，极端专制、封闭社会－稳定性、程式化古埃及人观太阳东升西落,无限循环,联系人之生死,形成一种升落循环、此界彼界循环的独特的世界观。在古埃及人眼里,生,即是此界生活;死,即是进入另一个世界,生死都是生,只是在不同的世界循环而已。故而法老的金字塔都建立在尼罗河的西岸,日落之处,有随太阳神荷鲁斯乘坐太阳船巡回两个世界的寓意,这是何等潇洒的生死观啊!金字塔是国王的陵墓，建筑金字塔的目的反映了古埃及人的宗教信仰以及他们的哲学。埃及人普遍持有乐观的世界观，他们非常关心死亡，并且坚信永恒的生命。在国王死后，为了国王的来世需要各种物质的准备。金字塔就是埃及人为国王精心设计的“死人的住所”，为了让死者继续舒适的生活下去，在这样巨大的住所当中有食物以及其他生活必需品，还有很多象征国王高贵身份的奢侈品。 埃及人认为法老是神在人间的代表，死后也继续为神；因此金字塔的建筑，除了令法老们的肉体不朽（这是埃及人基本的丧葬观念）之外，那种直指天际的高耸塔身也有象征法老的灵魂上达天空，因此不朽的意味。 四、论述题（每题20分，本题共20 分） 1、简单论述佛教东渐与中国石窟寺艺术的关系？早期基督教与拜占庭艺术产生的关系？ 早期基督教艺术出现在公元2世纪下半叶或3世纪上半叶，图像偏重于对某事物的象征性或寓意性。由于公元二世纪到四世纪期间的基督教被罗马皇帝视为非法宗教，早 [1]期基督教艺术主要出现在地下墓室。壁画沿袭希腊罗马的风格，题材则与基督教相关。直到公元313年，罗马帝国君主君士坦丁大帝颁布的《米兰诏书》，自始对基督教艺术及西方文明有决定性的影响。随着时间推进，早期基督教艺术逐渐脱离古罗马末期的古典风格形成拜占庭艺术。 佛教东渐之路。这条路就是西方进行文化物产交流的丝绸之路。而奠定了日本文化基础的中 国大陆文化就是通过这条路,经由朝鲜半岛,传到我们的祖先那里。寻访佛教东传之旅,也是寻访日本文化之源之旅。其中我最想寻访...丝绸之路,尤其从印度经中亚至中国长安(今天的西安),进而抵达日本奈良,即所谓佛教东渐中国历史上西来的佛教文化失去了源头。及至元代和明代中前期,中国虽然还有进一步雕造摩崖石刻和石窟寺佛教造像.石窟寺现存洞窟五座，千佛龛一个，小型佛龛二百五十五个，摩岩造像三尊，共雕佛像七千七百四十三尊，碑刻题记二百余块。这里保存的十五幅帝后礼佛图，构图严谨，技法娴熟，人物性格鲜明，可谓佛教艺苑中的珍品。石窟寺是继洛阳龙门石窟之后开凿的，它把佛教艺术的外来影响同中原汉族艺术相结合，摆脱了北魏早期深目高鼻，秀骨清瘦的特点，代之以面貌方圆，神态安详，多呈静态造像风格。因此，这里的雕刻既保留着北魏浓重的艺术特点，又孕育着北齐、隋代的雕刻艺术萌芽，形成由北朝向唐朝过渡的一种艺术风格，在雕刻艺术史上占有重要地位。第二篇：中国海洋大学国际贸易实务试题
第三篇：VB上机试题及答案
第四篇：VB上机试题及答案
第五篇：中国海洋大学《中外美术简史》试题
点击咨询 