Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a

Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a vb程序Dim a(1 To 20) As Integer,i As Integer,j As IntegerDim a(1 To 20) As Integer,i As Integer,j As IntegerPrivate Sub Command1_Click()Dim a(1 To 20) As IntegerFor j = 1 To 2For i = 1 To 10a(i) = Int(Rnd * 21) + 20Text1 = Text1 & Str(a(i))Next iTe VB练习题7道,七道全讲完才行一、Private Sub Command1_Cilck()Dim a(4,4)For i = 1 To 4For j = 1 To 4Next jNext iFor j = 3 To 4For j = 3 To 4Print a(j,i);Next jEnd Sub9 1210 13二、Private Sub Form _Click()Dim a(10),p(3)As Integerk = 5For i VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1 我写这个程序时 dim a(10）as interger dim ias interger for i= 10 to 14 a(i)=2i next i 在2i这里出了问 VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）Private Sub cmdbegin_Click() Dim a(4,3) As Integer,i As Integer,j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 3 a(i,j) = InputBox(请输入矩阵的第 在Visual Basic中,语句Dim a(1 To 10) As String所定义的数组元素个数是 (A) 1 (B) 9 (C) 10 (D)11该怎么算呢? vb中 按如下定义的数组A的元素个数为?option base 1 dim a(-1 to 5 ,5)as integer 求详解 Dim A(1 To 6,6) As String定义的数组包含的元素个数是（ ）.A.36B.49C.42D.50 看程序,)private sub form-click()dim a(5,5) as integer,s(5) as integerfor i=1 to 5s(i)= 0for j=1 to 5m(i,j)=i+jnext jnext ifor each x in sprint x;nextend sub 0402 Private Sub Command1_Click() Dim a As Single,b As Single Dim c As Single,d As Single Dim m A0401Private Sub Form_Load()Dim x As Long,s As Stringx = InputBox(输入一个整数(1~40000))If x Mod 2 = 0 Thens = 偶数Elses = 奇数End IfMsgBo 33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As Doublesum = 0n = 0For i=1 To 5x = n / in = n + 1sum = sum + xNext iEnd Sub该程序通过For循环来计算一个表达式的值,这个表达式是______.A、1+1/2+2/3+3/4+4/5 B 一个数组说明为Dim a(5,1 to 5) As Integer,则该数组共有(C) 个元素.A、25 B、3一个数组说明为Dim a(5,1 to 5) As Integer,则该数组共有（C） 个元素.A、25 B、36 C、30 D、不确定 vb随机产生10个两位数随机正整数,求其中素数之和（用过程实现判断一个数是否是素数）Private Sub Command1_Click()Dim a As Integer, r As Integer, s As Integers = 0For a = 1 To 10r = Int(90 * Rnd + 10)Print r;If f = True 英寸厘米的互换 英寸是输入整数'注：删除①,填入正确的语句Private Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)Text2.Text = a ①End SubPrivate Sub Command1_Click()Dim a As LongFor a = 6005 To ① Step 10If (a Mod 69 = vb题 下面程序的功能是什么?Private Sub Command1_Click() Dim s%,n% Dim a As String n = 0 a = InputBox(Please input a number:) For s = 1 To Len(a) If (func(Val(Mid(a,s,1)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool 程序阅读,程序功能是什么Private Sub Command1_Click()Dim s%,n%Dim a As Stringn=0a=InputBox(“Please input a number：”)For s=1To Len(a)If(func(Val(Mid(a,s,1)))) Then n=n+1NextPrint nEnd SubPrivate Function func(x%) As BooleanIf(x Mod 2=0) 使用下列语句：dim x (1 to 10,3)as single,则数组占用内存空间的字节数是：答案是160,怎么算的,