vb程序的设计基础复习题答案.docx 8页

  • 0
  • 0
  • 0
  • 约9.26千字
  • 2021-02-24 发布
文档工具:
    1. 1、本文档共8页,可阅读全部内容。
    2. 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
    3. 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
    4. 文档侵权举报电话:19940600175。
    <Visual Basic> 程序设计基础 P16 习题一 2 ,对 3 , ,判断题 1 ,错 错 4,错 5,6,7, 对 二 ,单选题 1 ,B 2,B 3, D 4, A 5 , D 6 , B 7, B 8,C 9,D * J 程序设计题 5, Private Sub Command1_Click() Form1.FontName = " 宋体 " Form1.Print " 中文字体宋体 " End Sub Private Sub Command2_Click() Form1.FontName = " 楷体 _GB2312" Form1.Print " 中文字体楷体 " End Sub ( A2 + B*C*(X +Y)) / (A+B) ( 2* 3.14159*r +Exp(-5))* Log(x) 1/( x + 1/(y+1) ) k / ( 1 + a * Exp(-b*x) ) 5 + 6*x / ( 3 * (xA2-1) - 2*x ) Sqr( yA3 + 3 * (日人2+匕人2) / (xA2+yA2) ) (1) (a+b) Mod c (2) Sqr(Abs(x)) (3) Int(x) + 1 (4) Int(Rnd *101)+200 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Integer, y As Long TOC \o "1-5" \h \z a = InputBox(" 请输入 a 的值 ") b = InputBox(" 请输入 b 的值 ") c = InputBox(" 请输入 c 的值 ") y = a A 2 + 2 * b A 2 + 2 * c A 2 Print " y = "; y Form1.FontName = " 仿宋 _GB2312" Form1.Print " 中文字体仿宋 " 4。 (1) F ( 2)T (3) End Sub F (4) T 5 . (1) 1<=x Andx<12 (2)T+3<>V-2 Private Sub Command3_Click() End Sub P42 习题二 And (T+V)>100 ,判断题 ( 3) (a+b) >= c or (a-c) <= c 1,2 ,3, 7 ,10, 对 ( 4) a>0 And Int(a)=a And b>0 And 4,5,6,8, 9,11 ,12,13,14 错 Int(b)=b or a<0 And b<0 二 ,单选题 ( 5) x<=y Or x>=z 1 ,A 2,C 3,C 4, ( 6) a=0 And b<>0 or a<>0 And b=0 B 5,B 四 , 编程题 6,A 7,B 8,C 9, 1. Private Sub Form_Click() B 10, C Dim a As Integer, b As Integer 11 ,C 12 ,D 13 ,B 14, Dim c As Integer, y As Single A 15,D a = InputBox(" 请输入正整数 a 的值 ") 16,B 17,B 18 ,C 19, b = InputBox(" 请输入正整数 b 的值 ") B 20 ,B c = InputBox(" 请输入正整数 c 的值 ") 21 , B 22 ,D 23 ,A 24, y = (a + b + c) / 3 C 25 , B Print " 平均值 y = "; y 26,A 27,D 28 ,B End Sub 三 ,简答题 2. Private Sub Form_Click() 1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * Dim r As Integer, s As Single a ) Const Pi = 3.14159 ⑵ Sqr( s*(s - a)*(s - b )*(s - c)) r = InputBox(" 输入圆半径 ", " 输入 ", P78 P78 习题三 1,A 2,B 3 ,B 4, A 5,C 10) s = Pi * r * r MsgBox " 圆面积 Area =" & Str(s) End Sub 二, 1 , 37 , 55, 64, 28, 19 2 , y=KIGECA 3, 1 121 12321 1234321 123454321 12345654321 4 , cHINA ! 三, 1 , t As Double s=1 Abs(t)>=1e-5 s=s+t 2, s+c -1 s 3, m=n m To n Sum=

    文档评论(0)

    • 内容提供方:170****6769
    • 审核时间:2021-02-24
    • 审核编号:7010100020003060

    相关文档

    相关课程推荐