vb6.0中实时错误424,要求对象是怎么回事
PrivateSubCommand1_Click()DimmyNum()AsIntegerDimiAsIntegerDimmySumAsIntegerDimjAsInte...
Private Sub Command1_Click()
Dim myNum() As Integer
Dim i As Integer
Dim mySum As Integer
Dim j As Integer
i = InputBox("请输入你要输入的整数个数:", "输入整数", 1)
ReDim myNum(i - 1)
mySum = 0
Label3.Caption = ""
For j = 0 To i - 1
myNum(j) = InputBox("请输入第" & j + 1 & "个整数:", "输入整数", 0)
If j = i - 1 Then
Label3.Caption = Label3.Caption & myNum(j)
Else
Label3.Caption = Label3.Caption & myNum(j) & "+"
End If
mySum = mySum + myNum(j)
Next
Label4.Caption = mySum
End Sub
Label3.Caption = ""变成黄色 展开
Dim myNum() As Integer
Dim i As Integer
Dim mySum As Integer
Dim j As Integer
i = InputBox("请输入你要输入的整数个数:", "输入整数", 1)
ReDim myNum(i - 1)
mySum = 0
Label3.Caption = ""
For j = 0 To i - 1
myNum(j) = InputBox("请输入第" & j + 1 & "个整数:", "输入整数", 0)
If j = i - 1 Then
Label3.Caption = Label3.Caption & myNum(j)
Else
Label3.Caption = Label3.Caption & myNum(j) & "+"
End If
mySum = mySum + myNum(j)
Next
Label4.Caption = mySum
End Sub
Label3.Caption = ""变成黄色 展开
6个回答
展开全部
原因:名字错误,需要先把控件画好,并zd命名完再写代码。解决方法:
1.首先,用Inputbox在VB编程软件中输入一个数字。
2.然后进入选择案例判断语句的框架。
3.然后输入第一个分支的语句。
4.然后输入第二个语句判断否定条件权利,可以用Else代替。
5.最后,运行测试,如下图所示,就完成了。
扩展资料:
注意事项:
Vb.net特点:
1.VB。Net完全集成到VisualStudio集成开发环境中,这与VB有几个方面的不同。主要体现在布局和菜单的形式等方面有所不同。
2.VB。Net项目不同于VB。它使用基于文件夹的模型,其中所有项目都放在项目文件夹层次结构中。
3.net使用ado.net,它是。net的一部分。NetFramework,以访问数据库。在vb.net中有两种主要的数据访问方法。
展开全部
在属性窗口看一看label3是不是叫这个名,是不是控件数组中的一个,比如:label3(0).还有一种情况就是它的caption是labele3,但它的名字却不是label3,所以报要求对象。这个错误不是什么大毛病,仔细找一找。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Label3.Caption = ""变成黄色
句错了,应该是 Label3.Caption = "变成黄色"
句错了,应该是 Label3.Caption = "变成黄色"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-02-11
展开全部
你把窗体中Label控件设置成你代码中Label3、Label4就行了
对象的意思就是控件
对象的意思就是控件
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询