望采纳。。。。
追问发的图是一种，打的字又是一中吗？
追答一看你就是没见过VB
打字部分是VB的程序，那个图是VB运行的窗体
For i = 1 To n
For j = 1 To i
Sum = Sum + j
Next
Next
MsgBox "s=" & Sum本回答被提问者和网友采纳
vb程序设计,一道题s=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)输入n
望采纳。。。
在VB编程中,用控制台应用程序做下面这道题怎么做?急求
n=inputbox("请输入一个<100的整数")if n>100 then m=n & "不满足要求"else s=0 for i=1 to n s=s+i next i m="1+2+3+...+" & n & "=" & s end if msgbox m
VB 计算 1+2+3+。。。n的代码怎么写啊?
首先你在窗体上放二个text.text控件(一个用来输入数N,一个用来显示结果)和command按钮控件 Private Sub Command1_Click()Dim n As Long Dim b As Long For n = 1 To CInt(Text1.Text)b = b + n Next n Text2.Text = b end sub 把代码放到command1按钮里,单击command1按钮就能在text2....
VB 编写程序(选择题)
建立多个窗体，每个窗体一题。选项用optionbutton 控件数组，判断的时候方便点。单击下一题，判断选择的是哪个按钮，判断是否正确，或者是否选中，进行相应的累加。这个累加变量用模块级的。在标准模块中定义。然后，显示下一个窗体，卸载本窗体。当全部答完之后用MSGBOX提示答对，或者答错的信息。
VB程序填空题
第一道填空题应该填 （1） 0 说明：填0是因为数组定义时默认从0开始，也算入了偶数下标 （2）step 2 说明：步长值为2，定位到下一个偶数下标 （3）i+2 说明：循环变量j从偶数下标i的下一个偶数下标开始比较 （4）(n\\ 2 ) * 2 说明：循环变量j的终值为数组的最后一个偶数下...
VB考试题
End If Next k Next j Next i Print "一共有" & n & "种不同的取法"End Sub 第二题：Private Sub Form_Click()Dim i For i = 1 To 40 If i * 3 + (100 - i) \/ 3 = 100 Then Print "母鸡数量：" & i Print "小鸡数量：" & (100 - i)End If Next i End Sub ...
用vb编写一个测试算术的小程序(续)
m = Mid(OP, Int(Rnd * 4) + 1, 1) '在调试时，这里的4改成3，2，1等表示去掉对应的运算符 A = Int(Rnd * 10)B = Int(Rnd * 10)If m = "÷" Then '对于÷，只测试能整除的数 If B = 0 Then B = Int(Rnd * 50) + 1 A = (Int(Rnd * (100 \\ B)) + 1) * ...
用vb编写一个测试算术的小程序
For i = 1 To 1 m = Mid(OP, Int(Rnd * 2) + 1, 1) '在调试时，这里的4改成3，2，1等表示去掉对应的运算符 If m = "÷" And b = 0 Then i = i - 1 Next Label1.Caption = a & " " & m & " " & b & " = "Text1.Text = ""Select Case m Case "＋"get...
有没有VB程序设计的大佬会这几道题?急求!万分感谢
第三题 Private Function Factorial(ByVal n As Integer) As Integer If n = 0 Then Return 1 Else Return n * Factorial(n - 1)End If End Function Private Sub btnFactorial_Click(sender As Object, e As EventArgs) Handles btnFactorial.Click Dim n As Integer = CInt(txtNumber.Text)...
如何用VB建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。2、然后在弹出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，弹出保存界面，点击保存后出现如下界面。4、然后右键单击properties，选择“新建表”，输入表名称，添加字段...
