下载此文档

VB复习题(精选).doc


文档分类:资格/认证考试 | 页数:约7页 举报非法文档有奖
1/7
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/7 下载此文档
文档列表 文档介绍
6题
Dim i, j, k As Integer
For i = 1 To 5
k = 1
For j = 1 To i
k = k * j
Next
s = s + k
Next
Print (CStr(s))
程序设计题
1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数”或"零"。
1题
n = InputBox("输入一个自然数")
If n > 0 Then
result = "正数"
ElseIf n < 0 Then
result = "负数"
ElseIf n = 0 Then
result = "零"
End If
MsgBox "输入的数据" & n & "为:" & result
3题
Dim i As Integer
s = 0
For i = 1 To 10
s = s + 1 / (i ^ i)
Next
Print (s)
2、题目:(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中
2题
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then
Print (CStr(i))
sum = sum + i
End If
Next
Print sum
3、题目:单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。
5题
Dim i, j, k As Integer
For i = 1 To 100
For j = 1 To 50
For k = 1 To 20
If ((i + 2 * j + k * 5) = 100) Then
Print (CStr(i))
Print (CStr(j))
Print (CStr(k))
n = n + 1
End If
Next
Next
Next
4、题目:(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。
5、题目:(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚),求出其所有的换法,把结果输出在窗体上。将所有的换法的数目存入变量N中
6、题目:单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中
7题
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15:a(1) = 23:a(2) = 72
a(3) = 43:a(4) = 96:a(5) = 23
a(6) = 3:a(7) = 65:a(8) = 88
a(9) = 17:max = a(0):min = a(0)
s = 0
For i = 0 To 9
If a(i) > max Then
max = a(i)
End If
If a(i) < min Then
m

VB复习题(精选) 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数7
  • 收藏数0 收藏
  • 顶次数0
  • 上传人pubaxiahaowei
  • 文件大小0 KB
  • 时间2015-10-04