vb程序設(shè)計(jì)基礎(chǔ)習(xí)題答案-全文預(yù)覽
【正文】 。 s amp。 Next iEnd SubPrivate Sub Form_Click() Dim a(20) As Integer, score(5) As Integer For i = 1 To 20 a(i) = Int(Rnd * 101) Print a(i)。 minEnd Sub3.冒泡法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 Min, average=。 For j = 1 To 2 * i 1 Print *。 i * j。 sEnd Sub4.Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Print i。 3, s=s+t Abs(t)=1e5 s=1 Double 4， 12321 121 y=KIGECA 1， 2，B一， (4) yEnd Sub 28，B 25，B 19，B 18，C 12，D 10，C 9，B 8，C 7，B 1，A 7，B 6，B 1，B 2，對(duì) 一，判斷題 3，錯(cuò) 2，B 8,C三, 程序設(shè)計(jì)題5, Private Sub Command1_Click() = 宋體 中文字體宋體End SubPrivate Sub Command2_Click() = 楷體_GB2312 中文字體楷體End SubPrivate Sub Command3_Click() = 仿宋_GB2312 中文字體仿宋End Sub 對(duì) 2，C 3，C 4，B 5，B 13，B 16，B 21，B 22，D 三，簡(jiǎn)答題1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a )(2) Sqr( s*(s–a)*(s–b )*(s c))(3) ( A^2 + B*C*(X +Y)) / (A+B)(4) ( 2* *r +Exp(5))* Log(x)(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * Exp(b*x) )(7) 5 + 6*x / ( 3 * (x^21) 2*x )(8) Sqr( y^3 + 3 * (a^2+b^2) / (x^2+y^2) )2. (1) (a+b) Mod c (2) Sqr(Abs(x))(3) Int(x) + 1 (4) Int(Rnd *101)+200 3. Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long a = InputBox(請(qǐng)輸入a的值) b = InputBox(請(qǐng)輸入b的值) c = InputBox(請(qǐng)輸入c的值) y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2 Print y = 。 4。 Str(s)End SubP78 習(xí)題三 3，B 5，C 37，55，64，28，19 1 1234321 As 2, yEnd SubY=3.Private Sub Form_Click() Dim n As Integer, i As Integer, flag As Integer, s As Single, t As Integer n = InputBox(請(qǐng)輸入n的值：) sum = 0 t = 1 flag = 1 For i = 1 To n flag = flag t = t * i s = s + flag * i / t Next i Print s=。 =。 Next j Print Next i For i = 4 To 1 Step 1 Print Tab(6 i)。 Max, min
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1