精选优质文档-倾情为你奉上编程题【1】 26-01N = Val(Text1.Text) Select Case N Case 80 To 100 Text2.Text = 优良 Case 60 To 79 Text2.Text = 合格 Case 0 To 59 Text2.Text = 不合格 End Select【2】 25-01Dim i%, s& N = Val(Text1.Text) s = 0 For i = 1 To N If i Mod 2 = 0 Then s = s + i Next i Text2.Text = Str(s)【3】 24-01Dim i As Integer N = Val(Text1.Text) Text2.Text = For i = N To 1000 If i Mod 8 =
Copyright © 2018-2021 Wenke99.com All rights reserved
工信部备案号:浙ICP备20026746号-2
公安局备案号:浙公网安备33038302330469号
本站为C2C交文档易平台,即用户上传的文档直接卖给下载用户,本站只是网络服务中间平台,所有原创文档下载所得归上传人所有,若您发现上传作品侵犯了您的权利,请立刻联系网站客服并提供证据,平台将在3个工作日内予以改正。