没有合适的资源?快使用搜索试试~ 我知道了~
VB题库-程序设计.doc
需积分: 0 0 下载量 176 浏览量
2022-11-13
15:24:03
上传
评论
收藏 82KB DOC 举报
温馨提示
试读
19页
VB题库-程序设计.doc
资源推荐
资源详情
资源评论
.
精选范本
程序设计
〖第 1 题〗『程序设计』(5 分)(题号:148)
'题目:(事件)单击窗体。
' (响应)求 10~20 之间所有素数的乘积并输出在窗体上。
' 将结果存入变量 L 中。
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
Dim j As Integer
Dim b As Boolean
l = 1
b = False
For i = 10 To 20
For j = 2 To i - 2
If i Mod j = 0 Then
b = True
End If
Next
If b = False Then
l = l * i
End If
b = False
Next
Print Str(l)
----------------------
〖第 2 题〗『程序设计』(5 分)(题号:150)
'题目:(事件)单击窗体。
' (响应)求 1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100 的值。
' 将结果存入变量 J 中。
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 1 Then
j = j + 1 / i
ElseIf i Mod 2 = 0 Then
j = j - 1 / i
End If
Next
Print j
----------------------
〖第 3 题〗『程序设计』(5 分)(题号:131)
'【程序设计】
.
精选范本
'题目:(事件)单击窗体。
' (响应)已知 S=1+1/4+1/9+1/16+1/25+…+1/100,
' 结果输出在窗体上。
'将结果存入变量 S 中
答案:----------------------
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
----------------------
〖第 4 题〗『程序设计』(5 分)(题号:152)
'【程序设计】
'题目:(事件)双击窗体。
' (响应)求 1+2+3+5+8+13+……前 20 项的和,并将结
' 果在窗体上输出。将结果存入变量 SUM 中。
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
Dim j(1 To 20) As Integer
For i = 1 To 20
If i < 3 Then
j(i) = i
Else
j(i) = j(i - 1) + j(i - 2)
End If
sum = sum + j(i)
Next
Print sum
----------------------
〖第 5 题〗『程序设计』(5 分)(题号:157)
'【程序设计】
'题目:(事件)单击窗体。
' (响应)求 10!的值,并将结果输出到窗体上。
' 将结果存入变量 SUM 中。
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
sum = 1
For i = 1 To 10
sum = sum * i
Next
.
精选范本
Print sum
----------------------
〖第 6 题〗『程序设计』(5 分)(题号:489)
'题目: (事件)单击窗体。
' (响应)已知 sum=1-1/3!+1/5!-1/7!+1/9!,
' 请将 sum 结果值输出到窗体上。
' 使用 do while...loop 语句完成程序
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
Dim n As Integer
i = 1
p = 1
Do While i <= 10
p = p * i
If i Mod 2 = 1 Then
n = n + 1
sum = sum + (-1) ^ (n - 1) / p
End If
i = i + 1
Loop
Print sum
----------------------
〖第 7 题〗『程序设计』(5 分)(题号:154)
'【程序设计】
'题目:(事件)单击窗体。
' (响应)求 100 以内偶数的和,并将结果输出在窗体上。
' 将结果存入变量 SUM 中
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 0 Then
sum = sum + i
End If
Next
Print sum
----------------------
〖第 8 题〗『程序设计』(5 分)(题号:134)
'【程序设计】
'题目:(事件)双击窗体。
' (响应)s=20+21+22+…+263,求 s 的值,并将结果
' 存储到变量 S 中。
'注意:请在指定的事件内编写代码。
.
精选范本
答案:----------------------
Dim i As Integer
i = 20
While i <= 263
s = s + i
i = i + 1
Wend
Print (CStr(s))
----------------------
〖第 9 题〗『程序设计』(5 分)(题号:142)
'【程序设计】
'题目:(事件)单击窗体。
' (响应)编写程序求 10×11×12+11×12×13+…+15×16×17 的结果,
' 并将结果输出到窗体上。
' 将结果存入变量 M 中
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i, j As Integer
Dim s As Long
For i = 10 To 15
s = 1
For j = i To i + 2
s = s * j
Next
m = m + s
Next
Print (CStr(m))
〖第 1 题〗『程序设计』(5 分)(题号:149)
'【程序设计】
'题目:(事件)单击窗体。
' (响应)求 1!+2!+3!+……+10!的值,并在窗体上输出。
' 结果存入变量 L 中。
'注意:请在指定的事件内编写代码。
答案:----------------------
Dim i As Integer
Dim s As Long
Dim j As Integer
s = 1
For i = 1 To 10
s = s * i
l = l + s
Next
Print Str(l)
剩余18页未读,继续阅读
资源评论
Mmnnnbb123
- 粉丝: 696
- 资源: 8万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 设计1.ms14
- vscode-1.64.1.tar源码文件
- vscode-1.64.0.tar源码文件
- vscode-1.52.0.tar源码文件
- Music-Player +PlayerActivity+ rockplayer+ SeeJoPlayer 播放器JAVA源码
- vscode-1.46.0.tar源码文件
- 最近很火植物大战僵尸杂交版2.08苹果+安卓+PC+防闪退工具V2+修改工具+高清工具+通关存档整合包更新
- 超级好用的截图工具PixPin,可录制Gif图
- Screenshot_2024-05-21-17-06-42-64_2332cb9b27b851b548ba47a91682926c.jpg
- 毕业设计参考 - 基于树莓派、OpenCV及Python的人脸识别
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功