求助，这个题目的VB代码怎么写？
1个回答
展开全部
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim c As Integer, s As String
Text1.Text = ""
For a = 1 To 1000
c = 0
t = ""
For b = 1 To a \ 2
If a Mod b = 0 Then
c = c + b
t = t & b & "+"
End If
Next
If a = c Then
t = Left(t, Len(t) - 1)
Text1.Text = Text1.Text & c & "=" & t & vbCrLf
End If
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
VLOOKUP是Excel中用于垂直查找的函数，其基本用法包括四个参数：1. 查找值：即在数据表首列中需要搜索的值。2. 数据表：包含查找值的单元格区域或数组。3. 返回值所在列数：指定返回查询区域中第几列的值。4. 查找方式：选择精确匹配...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
