求教一道VB程序设计题，题目如下
新建工程，设置窗体的标题为“数组生成”。编写程序代码，在程序运行时，单击窗体实现以下功能：随机生成9个一位正整数存入3×3的二维数组A，将数组A所有元素在窗体上输出；计算数组A中所有元素的和，将结果在窗体上输出。运行结果如图所示。
sub command1_click()
dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integer
s=0
for i=1 to 3
for j=1 to 3
a(i,j)=int(rnd*9)+1
s=s+a(i,j)
print a(i,j)," ";
next j
next i
print s
end sub
一道VB程序设计题
输入行数和列数，程序生成随机矩阵，矩阵的每一行元素之和放在该行最后一个位置。程序通过以下步骤实现：首先接收输入的行数和列数。接着，根据输入的行数和列数创建一个数组，并填充随机数。然后，对矩阵每一行的元素求和，将结果存入最后一列。最后，输出整个矩阵。
一个关于vb程序设计的问题
一个简单的VB程序设计案例，利用Timer控件和WindowsMediaPlayer，结合显示时间和操作按钮的控件，实现了一个闹钟功能。下面将详细解释代码逻辑和功能实现。首先，定义一个全局变量nl，用于控制闹钟功能的启用状态。当用户点击“设置闹钟时间”按钮时，程序会检查输入的三个时间值是否为空。如果所有时间值均非空...
请大家帮忙看一下这道vb程序设计题
看右边的数字应该是斐波那契数序列，即，序列中的第1个和第2个元素均为1，其他的元素的值是其前两个元素的和。本题是对该数列求和到144.Option Base 1Private Sub Form_Click() Dim x() As Integer Dim i As Integer Dim sum As Integer ReDim x(2) x(1) = 1: x(2) ...
求助,vb编程题。设计一个程序,找出100~900之间的无暇素数
Counter As Integer For i = 100 To 900 ImmaculacyPrimeNumber = 100 * (i Mod 10) + 10 * (i \\ 10 Mod 10) + i \\ 100 If IsPrimeNumber(i) And IsPrimeNumber(ImmaculacyPrimeNumber) Then Counter = Counter + 1 Print i; If Counter...
做两个VB程序 简单题目
1.用VB编程序设计一个简易的计算器 代码：Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...
vb程序设计题,请高手解答
Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)Dim c(1000)pa = 0: pb = 0: pc = 0 ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBO...
求vb高手设计一下下面的题
20RMB+200QB。程序简单，但工作量多、Option Explicit Dim VBS As New MSScriptControl.ScriptControl Dim tempAnswerD As Double Dim tempAnswer As Double Dim tempAnswerI As Double Dim NCount As Long Dim SumCount As Long Dim Sum1 As Long Dim Sum2 As Long Dim MixOp(0 To 4) As ...
vb程序设计实例100
试题一.1 Private Sub Form_Click()Print fs_sum(100)End Sub Function fs_sum(ByVal n As Integer) As Single Dim s!, nc! '和与倒数 s=0 For i = 1 To n nc = 1 \/ i s = s + nc Next i fs_sum = s End Function 试题一.2 Private Sub Form_Click()For i = 1 To ...
vb程序设计题求解!!!谢谢各位了!!
Private Sub Command1_Click()Dim h0 As Integer, s As Single, a(1 To 20) As Single, i As Integer a(1) = 100 '第一个扔下的高度 For i = 2 To 20 '每一个数组内数据表示小球行走的一个方向的路程，也就是奇数项是从最高点落下的路程，偶数项是从地面反弹到最高点的路程 a(...
VB简易程序设计代码
题目一：Private Sub Text1_Change()Text2.Text = Text1.Text End Sub 题目二：Private Sub Command1_Click()Text1.Text = "程序设计第一步：设计界面"End Sub Private Sub Command2_Click()Text1.Text = "程序设计第二步：属性设置"End Sub Private Sub Command3_Click()Text1.Text = "...
