【文章內(nèi)容簡介】 eft(b, 1)+ Mid(b, 12, 1)Print c Print d。e End Sub3．設(shè)有Sub過程：Private Sub p1(x As Integer, ByVal y As Integer)x = 4 ：y = 5 ：z = 6 End Sub 則如下程序段的運(yùn)行結(jié)果是: Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y)Print x, y, z End Sub4． Private Sub mand1_click()k = 0 For i = 1 To 3 k = k + 1 a = i * i * k Print a。Next i End Sub5． Private Sub mand1_click()Dim a(5, 5)As Integer For i = 1 To 5 For j = 1 To 5 a(i, j)= i * 2 + j Print a(i, j)。Next j Print Next i End Sub 6．設(shè)有Function過程: Private Function f1(b, a)a = a * a: b = b * b f1 = ab End Function 則如下程序段的運(yùn)行結(jié)果是什么？ Private Sub mand1_click()a = 4: b = 3 a = f1(a, b)Print a End Sub 七．編程題（共30分）注意：藝術(shù)類學(xué)生（環(huán)藝、裝潢、表演、服設(shè)）做第6小題； 其他學(xué)生做 第4 小題。1．給出一個百分制的成績，要求輸出成績的相應(yīng)等級。（7分）90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分以下為“E”。2．求n!,n由鍵盤輸入。（7分）3．產(chǎn)生20個 [0，99] 之間的隨機(jī)整數(shù)，并按從小到大的順序輸出。（8分）4．產(chǎn)生并輸出一個66的二維數(shù)組A：（8分）（1）兩條對角線上元素的值為1，其余元素為小于30的隨機(jī)整數(shù)。（2）計算各行元素的平均值，輸出平均值最大和平均值最小的行號。5．輸出1+2+??+100的和，并求出1～100 之間能被17整除的數(shù)據(jù)的個數(shù)（8分）6．從鍵盤輸入10個數(shù)，求出其中的最大數(shù)，最小數(shù)和平均值。（8分）VB試題答案及評分標(biāo)準(zhǔn)一、單項(xiàng)選擇題（每題1分，共10分）1．B 2．A 3．C 4．C 5．D 6．D 7．A 8．B 9．D 10．B二、填空題（每空1分，共10分）1．n Mod 13=0 And n Mod 17=0對象3．LEFT(“Visual Basic ”,6)4．6 5．False 6．Autosize 7． ： 8．Option Explict 9．Const Dim三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換成VB表達(dá)式（每題1分，共6分）a^2+2*a*b+b^2x^(1/3)*y^(1/4)8*exp(x)*log(10)2*sin()*cos()(x+y+z)/sqr(x^2+y^2+z^2)log(1+abs((a+b)/(ab)))四、判斷題（每題1分，共10分）1． 2．√ 3． 4．√ 5． 6．√ 7． 8． 9． 10．√五、根據(jù)題意，將下列程序補(bǔ)充完整（每空1分，共10分）1．（1）int(rnd*91)+10（2）I六、寫出下面程序的輸出結(jié)果（每題4分，共24分）y=65Zheng Zhou Zhong Yuan Gong Xue Yuan 2分 ZZZG 2分 3．1 2 3 4 2 3 4．1 8 27 5．3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6．7七、編寫程序 sub mand1_click()dim x as integer,grade as string 1分 x= 1分 select case x 4分 case 90 to 100 grade=”A” case 80 to 89 grade=”B” case 70 to 79 grade=”C” case 60 to 69 grade=”D” case isn= 1 f=1 for I=1 to n 3 f=f*I next I =f 2 end sub分 分 分3． Private Sub Command1_Click()Dim a(1 To 20)As Integer 39。 1分 Randomize For i = 1 To 20 2分 a(i)= Int(Rnd * 100)Print a(i)。Next Print For i = 1 To 19 3分 For j = i + 1 To 20 If a(i) a(j)Then t = a(i): a(i)= a(j): a(j)= t End If Next j Next i For i = 1 To 20 2分 Print a(i)。Next i End Sub 4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6)As Integer 39。 1分 Dim aver As Single Randomize For i = 1 To 6 3分For j = 1 To 6 If i = j Or i + j = 7 Then a(i, j)= 1 Else a(i, j)= Int(Rnd * 30)End If Print a(i, j)。Next j Print Next i Print Max = 0: Min = 30 4分 For i = 1 To 6 s = 0 For j = 1 To 6 s = s + a(i, j)Next j aver = s / 6 If aver Max Then Max = aver: row_max = I If aver Min Then Min = aver: row_min = i Next i Print row_max, row_min End Sub 5． Private Sub Command1_Click()Dim i As Integer, c As Integer Dim s As Integer For i = 1 To 100 4分 s = s + i If i Mod 17 = 0 Then c = c + 1 Next i Print “1+2+...+100=”。s 2 Print “能被17整數(shù)的數(shù)據(jù)有”。c?！皞€” 2分 End Sub 6． Private Sub Command1_Click()Dim x As Integer x = InputBox(“x=”)1分 Print x。Max = x: Min = x: s = x 2分 For i = 2 To 10 3分 x = InputBox(“x=”)：Print x。s = s + x If x Max Then Max = x If x Min Then Min = x Next i Print s / 10 1分 Print Max, Min 1分 End Sub 應(yīng)該不是真的。分第三篇：Bvozoyu大一英語期末考試試卷生命是永恒不斷的創(chuàng)造，因?yàn)樵谒鼉?nèi)部蘊(yùn)含著過剩的精力，它不斷流溢，越出時間和空間的界限，它不停地追求，以形形色色的自我表現(xiàn)的形式表現(xiàn)出來。－－泰戈爾Testing Paper Unit 1, 4, 5 Sky：陳人智、吳斌、馬琴、蘇紅光Group________ Name__________ Score_________(30%)I).Listen to the dialog between Gary and Paul and choose the best answer to each of the questions you hear on the recording.(25=10)(Unit 1 Part II Listening I)（） and to the around at the with his girlfriend.（） who stay home doing who stimulate his who pursue their own who enjoy reading novels.（） and things around the the car and collecting the television and taking out the garbage.（） are the same as are quite progressive for the reflect the views of earlier were shaped by their own family life.（） his friend, at the party to try to make new a woman who shares his interest in home alone and spend the night with his ).Listen to the passage and decide whether the following statements are true or “T” for True and “F” for False in the spaces provided.(25=10)(Unit 4 Part III Practice One) and men play different roles in society because their physical structures are very babies were found to differ a lot from boy babies in birth length, weight and parents, school, television and the Internet show us how we should cartoon characters are usually more prominent than female , women are no longer expected to play their traditional ).Listen to the interview and plete the following sentences with the exact words you hear(110=10)(Unit 1 Part Four Section III) throw a little boy a ball, and he will try to _______it baby boy will pick up a stick and _______it_______ a gun boys play with Barbie dolls, they like to _______their hair_______ couldn39。t_______ _______ if their hair is untidy grow their fingernails long because they39。re too _______ to _______ an early age, boys are attracted to _______ II Words and Expressions(40%) __________________ _________________ ________________ over_______________ behind __________________ away ________________ to ______________________ ，贊許_____________，成見________________ ，參加_____________，其實(shí)______________ （學(xué)生）回答問題_______ ，論說文______________Ⅲ.Translation(20%) the process of growing up , each child learns hundreds of culturally patterned details of behavior that bee incorporated into its gender to the researchers, the bias is unintentional and unconscious, but it is there and it is influencing the lives of millions of schoolchildren every research showed that many teachers who thought they were nonsexist were amazed to see how biased they appeared on similar subordination of female to male students has also been observed in law and medical school classrooms in recent these are cultural, not genetic classroom is a man’s world, where boys get twothirds of the teachers’ attention even when they are