福建省计算机二年级vb编程题.docx

想预览更多内容，点击预览全文
点击预览本文档（全文）

申明敬告：

本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己完全接受本站规则且自行承担所有风险，本站不退款、不进行额外附加服务；如果您已付费下载过本站文档，您可以点击这里二次下载

文档介绍

Modified by JACK on the afternoon of December 26, 2020 Modified by JACK on the afternoon of December 26, 2020

福建省计算机二年级VB编程题

编程题

26-01

N = Val Select Case N Case 80 To 100 = "优良" Case 60 To 79 = "合格" Case 0 To 59 = "不合格" End Select

25-01

Dim i%, s& N = Val s = 0 For i = 1 To N If i Mod 2 = 0 Then s = s + i Next i = Str(s)

24-01

Dim i As Integer N = Val = "" For i = N To 1000 If i Mod 8 = 1 Then = & i & " " Next i

23-01

Dim i As Integer s = 0 N = Val For i = 1 To N s = s + i ^ i Next i = s

22-01

Dim i%, n%, a As String * 1 n = 0 For i = 1 To Len a = Mid, i, 1) If a >= "0" And a <= "9" Then n = n + 1 Next i = Str(n)

21-01

Dim a As Double, b As Double, c As Double '保留本行定义 a = Val b = Val c = Val If b

最近下载