ldcf.net
当前位置:首页 >> 急!求VB编程题答案.马上就要高一信息技术会考了~... >>

急!求VB编程题答案.马上就要高一信息技术会考了~...

第二题 Private Sub Command1_Click() Dim a As Long Dim s As Long Dim i As Long If Trim(Text1.Text) = "" Then MsgBox "请填写N的值!!", vbInformation, "-提 示-" Exit Sub ElseIf Trim(Text1.Text) = "0" Then MsgBox "0不参于计算!", vbI...

因为你数组A定义整形 其范围为 -32,768 到 32,767 之间 而你代码是计算阶乘值 很容易超过这个范围 就导致溢出错误 所以答案C

S=0 For I=1 to 4 T=1 For J=2 to I T=T*J Next J S=S+T Next I T在每次内循环开始时都赋为1了,所以第一次T=1,第二次T=2,第三次T=6,第四次T=24,S为T的累加和,结果为33

你的程序不完整,因为我不知道,最后这个arr数组用来干什么了? 从现在的2张图上只能分析出: arr数组既然保存的是编号,那编号就不能重复,而如果3不修改了的话,编号就存在重复了!

Private Sub Command1_Click() n = CInt(Text1) pi = 1 t = 1 For i = 1 To n - 1 t = t * i / (i + i + 1) pi = pi + t Next i Text2 = pi * 2 End Sub

Private Sub Command1_Click() Dim m As Long Dim n As Long Dim r As Integer m = Val(Text1) n = Val(Text2) On Error GoTo err r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop Text3 = Str(n)err:End Sub Or

Private Sub Form_Click() Dim x As Integer, s As Long, n As Integer x = 100 Do While x >= 100 And x (x \ 10 Mod 10) And (x \ 10 Mod 10) > (x Mod 10) Then s = s + x n = n + 1 End If i = i + 1 Loop Print "百位大于十位,十位大于个位...

百度搜 考试吧 里面有二级等级考试的页面 有vb历年的试题和答案 也有在线模拟考试 。学习知识都是没有速成的方法。能否成功看你的脑力和所花的精力了

会考还要考这个,我当年信息技术根本不要考,还有会考就是一形式,每个人都能过

3.反斜杠(\)类似Int(),斜杠(/)类似数学中的除号。 4.窗体文件扩展名为.frm,工程文件扩展名为.vbp,可执行文件扩展名为.exe 5.For x=1 To 10 Step -2 步长为0,因为10比1大,但这里的步长计算是每次-2;For x=9 To 2 Step -2步长为4,意思是x从...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com