请问以下两道VB题目怎么做

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/09 14:33:41

请问以下两道VB题目怎么做
1.单击分解按钮,程序提示输入一个大于2的整数,并将该数分解为因数的乘积,代码如下
Private Sub Command1_Click()
Dim n As Integer, Factor As Integer
Dim First As Boolean

Do
n = InputBox("请输入一个大于2的整数")
If n

Option Explicit
Private Sub Command1_Click()
Dim n As Integer, Factor As Integer
Dim First As Boolean

Do
n = InputBox("请输入一个大于2的整数")
If n 2

Factor = 2
First = True

Do
Do While (n Mod Factor = 0)
If First Then
Text1.Text = Str(n) + Space(1) + "=" + Str(Factor)
First = False
Else
Text1.Text = Text1.Text + Space(1) + "*" + Str(Factor)
End If
n = n / Factor
Loop
Factor = Factor + 1
Loop Until Factor > n
End Sub
Private Sub Cmd1_Click()
Dim a(), n%, i%, j%, k%
n = InputBox("请输入控制正方形图案层数的可变数")
ReDim a(n, n)
For k = 1 To (n + 1) \ 2
For i = k To n - k + 1
For j = k To n - k + 1
a(i, j) = k
Next j
Next i
Next k

For i = 1 To n
For j = 1 To n
Print Tab(j * 3); a(i, j);
Next j
Print
Next
End Su

请问以下两道VB题目怎么做以下两道数字电子技术课程设计题目,二选一,请问哪个比较容易做? 请问这道题目怎么做 VB随机数怎么做请问这道奥数题目怎么做请问大家以下这道题怎么做? 请问一下以下几题怎么做? 空着的两道语文题目怎么做以上两道题目怎么做?我很着急!好评! “请问,这道题目该怎么做?”的英文怎么说? 请问一下几道题目怎么做?写过程! 请问这道数学题目怎么做!对数函数