重庆大学2020年秋季学期课程作业《电力工程》题目.docx
《重庆大学2020年秋季学期课程作业《电力工程》题目.docx》由会员分享,可在线阅读,更多相关《重庆大学2020年秋季学期课程作业《电力工程》题目.docx(23页珍藏版)》请在文库网上搜索。
1、 Else min = y If z 3 Then y = x + 3 ElseIf x = 1 Then y = x * x ElseIf x 0 Then y = Sqr(x) Else y = 0 End If Print yEnd Sub程序3界面设计略,过程设计如下:Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9 Print Tab(j - 1) * 4); i * j; Next j Print Next iEnd Sub程序4界面设计略,过程设计如下:Pri
2、vate Sub Form_Click() Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox(请输入x的值:) n = InputBox(请输入n的值:) t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub程序5界面设计略,过程设计如下:Private Sub Form_Click() Dim e As Single, t As Single, i As Integer
3、e = 2: t = 1: i = 1 While t = 0.0001 i = i + 1: t = t / i: e = e + t Wend Print eEnd Sub程序6界面设计略,过程设计如下:Option Base 1Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k 下列代码中若出现错误,转到标号为K的语句执行。 n = InputBox(请输入n,0n10) For i = 1 To n: a(i, 1) = 1:
4、a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n Print Tab(30 - 2 * i); For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j); Next j Print Next i Exit Subk: MsgBox 输入n值小于1或大于10,数组下标超界。End Sub第4章 函数与过程一、判断题1 2 3 4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电力工程 重庆大学 2020 秋季 学期 课程 作业 题目