急求一个VB程序问题!要代码!!!
编写程序,把下面的数据输入一个二维数组中:
25 36 78 13
12 26 88 93
75 18 22 32
56 44 36 58
然后执行以下操作:
(1)输出矩阵两个对角线上的数.
(2)分别输出各行和各列的和.
(3)交换第一行和第三行的位置.
(4)交换第二列和第四列的位置.
(5)输出处理后的数组.
Dim a(4, 4) As Integer
Dim t()
Private Sub Command1_Click()
Print "对角线元素如下:"
For i = 0 To 3
Print String(i, Chr(9)); a(i, i)
Next i
End Sub
Private Sub Command2_Click()
Print "各行的和："
For i = 0 To 3
s = 0
For j = 0 To 3
s = s + a(i, j)
Next j
Print s
Next i
Print "各列的和："
For i = 0 To 3
s = 0
For j = 0 To 3
s = s + a(j, i)
Next j
Print s & Chr(9);
Next i
End Sub
Private Sub Command3_Click()
Print "交换第一行和第三行的位置"
For i = 0 To 3
temp = a(0, i)
a(0, i) = a(2, i)
a(2, i) = temp
Next i
For i = 0 To 3
For j = 0 To 3
Print a(i, j) & Chr(9);
Next j
Next i
End Sub
Private Sub Command4_Click()
Print "交换第二列和第四列的位置"
For i = 0 To 3
temp = a(i, 1)
a(i, 1) = a(i, 3)
a(i, 3) = temp
Next i
For i = 0 To 3
For j = 0 To 3
Print a(i, j) & Chr(9);
Next j
Next i
End Sub
Private Sub Form_Load()
Me.Show
t = Array(25, 36, 78, 13, 12, 26, 88, 93, 75, 18, 22, 32, 56, 44, 36, 58)
For i = 0 To 3
For j = 0 To 3
a(i, j) = t(4 * i + j)
Print a(i, j) & Chr(9);
Next j
Next i
End Sub
用VB如何编写这个题的代码??急用,求助!!!
1. 创建一个新的Windows应用程序项目。在VB.NET 中，选择“文件” > “新建项目”，然后选择“Windows Forms 应用程序”模板。2. 在主窗体上添加三个 ComboBox 控件，分别用于选择三种货物。在属性窗口中，将每个 ComboBox 的“Items”属性设置为货物名称列表，例如“苹果”、“香蕉”和“橙子”。设...
求编一个VB程序?输入一个三位整数,然后将它反向输出?
可以参考下面的代码：private sub command1_click()x=inputbox("输入一个三位数")X1=X\\100 'x1=三位数 的百位 X2=(X-X1*100)\\10 '十位 X3=X-X1*100-X2*10 '个位 msgbox X3&X2&X1 end sub
vb的小问题。高手请进
要解决VB的小问题，首先在菜单中找到“工程\/引用\/Microsoft Script Control 1。0”，确保前面有勾，然后点击OK，你将获得满意的答案，并且得到高分。在代码中，我们定义了几个变量。`Dim objScript As New ScriptControl` 创建了一个新的ScriptControl对象。`a As Double, x As Double, y As String`...
求助各位大神,这道VB编程题代码该怎么编?
窗体Frm1代码：Public n% '定义公共变量Private Sub Command1_Click() Frm2.ShowEnd SubPublic Sub Command2_Click() Print nEnd Sub窗体Frm2代码：Private Sub Command1_Click() If MsgBox("退出程序吗？", vbYesNo, "提示") = vbYes Then Me.Hide'题目要求只是关闭这个窗体，没说要退...
VB编程这题有人会吗帮忙下谢谢!!好的就直接采纳了
分析题目: 需要用到的程序结构是循环: 打印字母,每行6个,一共6行, 那么就是打印36次, 所以循环应该是0到35次 或者1到36次;需要用的主要运算是 Mod取模; \\整除运算 Private Sub Form_Load()Form1.Show '窗口显示出来Print '换行.离上边框远点PrintDim i As Integer '定义一个整数iFor i ...
vb程序 求代码注释 求答案 谢谢
Public x As Integer ’定义一个全局变量x Private y As Integer '定义一个模块级变量y 窗体文件的程序代码是：Dim a As Integer '定义一个模块级变量a Private Sub Form_Load()Dim b As Integer ‘定义一个局部变量b a=2:b=3:x=10:y=20 End Sub Private Sub Command1_Click(...
VB操作题只需告诉我程序代码编写
你这个问题涉及到的操作步骤比较多，代码很简单；1，启动VB程序，新建一个项目。2，在VB窗口，单击[工具]菜单，选择[菜单编辑器]，出现“菜单编辑器”窗口；在标题框里，输入：文件；在名称框里，输入：menu1；（注意最后不是英文字母是数字1）如下图所示：然后单击[下一个]，再单击向右的箭头按钮，...
请教这个vb代码!谢。
Timer1.Enabled = False ’记时器1无效~~即停止 Timer2.Enabled = True ’记时器2有效~~开始记时 Form3.Visible = False '窗体3隐藏了~~后台运行 Form4.Visible = True '窗体4出现在屏幕 Beep ElseIf s = Val(w1) And f = Val(w2) + 1 Then '否则如果s的值等于截取w1的数值 和 f...
VB程序代码,不知道问题出在哪里,麻烦看一下
'Dim x As Integer '这句不需要.x = Int(900 * Rnd + 100)Label4.Caption = Val(x)End Sub If val(Text3.Text )= Val(x) Then 'Command1.SetFocus '这里填写登陆成功代码 '例如成功后显示form2 me.close form2.show Else MsgBox "请输入附加码", , "提示窗口"Text3.Text =...
vb程序 求代码注释,谢谢
If Button = 1 Then ‘当你按下鼠标左键时 Text1.Text = InputBox("请输入要添加的项目") '这里要求你输入文本，并传给Text1 List1.AddItem Text1.Text List1控件添加你输入的文本 End If If Button = 2 Then '当你按下鼠标右键时 Text1.Text = InputBox("请输入要删除的项目...
