vb编程题，编写程序，输出一个5*5矩阵，该矩阵对角线元素值为1，其他元素均为0。

展开全部

Private Sub Command1_Click()
Dim i As Integer, j As Integer, str As String
For i = 1 To 5
str = ""
For j = 1 To 5
If i = j Or i + j = 6 Then
str = str & "1" & vbTab
Else
str = str & "0" & vbTab
End If
Next
Debug.Print str
Next
End Sub

VB编程题计算表达式y=x (x<1) y=2x 1(1<=x<10) y=3x 11(x>=10)

第一题：

1
2
3
4
5
6
7
8
9
dim y as double
if x<1 then
    y=x
elseif x<10 then
    y=2*x-1
else
    y=3x-11
end if
msgbox y
第二题：
1
2
3
4
5
6
7
8
9
10
11
12
13
dim a as double
dim b as double
if x=1 then
    msgbox a+b
elseif x=2 then
    msgbox a-b
elseif x=3 then
    msgbox a*b
elseif x=4 then
    msgbox a/b
else
    msgbox "输出x错误 ！"
end if
由于题目不详细，我能想到就这么多了

vb编程题，输入3个数，然后输出其中的最大数

Private Sub Command1_Click()
x = InputBox("键入第一个数")
y = InputBox("键入第二个数")
z = InputBox("键入第三个数")
Max = x
If Max < y Then Max = y
If Max < z Then Max = z
Print "最大值"; Max
End Sub

VB编程题 求编写：如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。

修改楼上，注意输入必须是正整数，且先小后大 form load() int i,j,m,n,sum m =inputbox("输入最小正整数") n =inputbox ("输入最大正整数") for j=m to n sum=0 for i=1 to j if (j mod i=0) and (i &lt;&gt;j ) then sum=sum i next if j=sum then print sum &amp; " 是完全数" next print "查找完毕" beep end sub

vb编程题 从键盘上输入一个整数，判断其能否被5整除

dim a as integer
a=inputbox( "请输入一个数")
if a mod 5 =0 then
msgbox "能被5整除"
else
msgbox "不能被5整除"
endif