VB练习题四-六_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
VB练习题四-六
V​B​练​习​题​四​-​六
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢vb题目：随机产生20个正整数存入二维数组A(4,5),并输出到文本框Text1中，找出其中的素数存入一维数组B并输-中国学网-中国IT综合门户网站
> vb题目：随机产生20个正整数存入二维数组A(4,5),并输出到文本框Text1中，找出其中的素数存入一维数组B并输
vb题目：随机产生20个正整数存入二维数组A(4,5),并输出到文本框Text1中，找出其中的素数存入一维数组B并输
转载 编辑：李强
为了帮助网友解决“vb题目：随机产生20个正整数存入二维数”相关的问题，中国学网通过互联网对“vb题目：随机产生20个正整数存入二维数”相关的解决方案进行了整理,用户详细问题包括:出到Text2中，用选择法对B数组元素排序后输出到Text3中，具体解决方案如下：解决方案1： &quot, temp Text1 = &quotPrivate Sub Command1_Click() D Exit Sub End If For i = 1 To UBound(B) - 1 p = i For j = i + 1 To UBound(B) If B(j) &&quot, i) End If Next Print Next If n &&quot, B(); 0 Then Text2 = Join(B) Else Text2 = &quot, i) = Int(Rnd * 100) '0-99的正整数 Text1 = Text1 & A(j; Text3 = & i Then temp = B(p) B(p) = B(i) B(i) = temp End If Next Text3 = Join(B)End SubFunction fc(n) As Boolean Dim i If n &lt, i)) Then n = n + 1 ReDim Preserve B(1 To n) B(n) = A(j, A(1 To 4; If fc(A(j, n, 2) For j = 1 To UBound(A;&gt, 1) Randomize A(j; For i = 1 To UBound(A, B(p) Then p = j Next j If p &lt, j, 1 To 5) As I&quot, i) & &quot解决方案2：求简化。。。那个join(B)是什么意思。。。另外，可否留名咨询？解决方案3：join(B) 就是把组数连起来输出，可以带格式。你也可以这样输出,效果是一样的，但啰嗦for i=lbound(b) to ubound(b) s=s & b(i) & space(1)nexttext3=trim(s)-------------------简化？UBound(A, 1) -----二维数组的一维上标UBound(A, 2) -----二维数组的二维上标这些你都可以用数字指定，但实用的软件很多都是不确定的，所以必须这样做。其它的没有什么好简化了，素数可能有也可能没有，所以必须是动态数组。判断素数使用函数这样更容易理解，最后就是选择法排序了。解决方案4：那个能否直接简单的告诉我如何把二维数组A(4,5)转换为一维数组B???我们学的很简单，复杂的不是很懂~~解决方案5：'修改了一下，按一维数组来处理Option ExplicitPrivate Sub Command1_Click() Dim i, j, A(1 To 20) As Integer, p, B(), n, temp Text1 = && For i = 1 To 20 Randomize A(i) = Int(Rnd * 100) '0-99的正整数 Text1 = Text1 & A(i) & & & If fc(A(i)) Then n = n + 1 ReDim Preserve B(1 To n) B(n) = A(i) End If Next If n & 0 Then Text2 = Join(B) Else Text2 = && Text3 = && Exit Sub End If For i = 1 To UBound(B) - 1 p = i For j = i + 1 To UBound(B) If B(j) & B(p) Then p = j Next j If p && i Then temp = B(p) B(p) = B(i) B(i) = temp End If Next Text3 = Join(B)End SubFunction fc(n) As Boolean Dim i If n & 2 Then Exit Function For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then Exit Function Next fc = TrueEnd Function解决方案6：谢谢!通过对数据库的索引,我们还为您准备了：问：出到Text2中，用选择法对B数组元素排序后输出到Text3中答：Private Sub Command1_Click() Dim i, j, A(1 To 4, 1 To 5) As Integer, p, B(), n, temp Text1 = "" For i = 1 To UBound(A, 2) For j = 1 To UBound(A, 1) Randomize A(j, i) = Int(Rnd * 100) '0-99的正整数 Text1 = Text1 & A(j, i) & " " ...===========================================问：求高手帮帮我解以下几道题，急！在线等答！谢谢！ （1）VB 用随机函数产...答：第一题： Option base 1 Private Sub Form_Click() Dim a(4,5) as integer , i as integer ,j as integer ,s as integer dim a_ave as single randomize for i=1 to 4 for j =1 to 5 a(i,j)=int(91*rnd+10) print Format(a(i,j),"@@@@@@"); next...===========================================问：VB编程：产生20个10至100间的随机整数存入一维数组A中，每行5个元素输出...答：Private Sub Command1_Click() Dim a(20) As Integer, b(4, 5) As Integer Randomize For i = 1 To 20 a(i) = Int(Rnd * 91) + 10 Print a(i); If i Mod 5 = 0 Then Print Next Print For i = 1 To 4 For j = 1 To 5 b(i, j) = a(j + (i - 1) * ...===========================================问：vb程序设计:随机产生20个三位正整数存入一维数组A中，找出其中的升序数...答：Function huiwen(x) m = Len(x) For i = 1 To m / 2 If Mid(x, i, 1) Mid(x, m + 1 - i, 1) Then huiwen = False Exit Function End If Next i huiwen = TrueEnd FunctionFunction shengxu(x) a = x \ 100 b = (x \ 10) Mod 10 c = x Mod 10 If a ===========================================问：vb程序设计:随机产生20个三位正整数存入一维数组A中，找出其中的升序数...答：Private Sub Form_Click() Dim a(20) As Integer Randomize a(1) = Int(Rnd() * 101) For i = 2 To 20 a(i) = Int(Rnd() * 101) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next Next For i = 1 To 20 Print a(i); If i...===========================================问：vb随机的产生20个0-1000之间的整数，放入到一个数组中，对产生的这20个...答：Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command2_Click() Dim i As Integer, a() As Integer, s As Integer Randomize For i = 1 To 20 ReDim Preserve a(i) a(i) = Int(1001 * Rn...===========================================问：vb随机的产生20个0-1000之间的整数，放入到一个数组中，对产生的这20个...答：Private Sub Form_click()Me.ClsDim s(1 To 5, 1 To 4) As IntegerDim i, j, t As IntegerDim num(1 To 5), max As SingleFor i = 1 To 5t = 0 For j = 1 To 4 s(i, j) = Int(61 * Rnd + 20) t = t + s(i, j) Print s(i, j); Space(2); Next j P...=========================================== Private Sub Command1_Click()RandomizePrint Int(899 * Rnd + 100)RandomizePrint Int(899 * Rnd + 100)RandomizePrint Int(899 * Rnd + 100)End Sub=========================================== Dim a As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim g() As Char = a.ToCharArray Dim MyRandom As New Random Dim bs As String = "" For i = 1 To 20 bs ...=========================================== Randomize for i =1 to 10print int(rnd*100 +1), if i mod 5 =0 then print next===========================================Private Sub Command20_Click() Dim r1, r2 As Long Randomize Timer r1 = Fix(899 * Rnd() + 100) r2 = Fix(899 * Rnd() + 100) Text6.Text = r1 Text7.Text = r2 End Su...=========================================== 你发了三次同样的问题没有一次把问题发全的…… ===========================================A(20) As IntegerDo Until i = 20 '开始循环添加变量数组i: '设置标签,让重复跳到这里换一个随机数A(i) = Int(Rnd * 101) '开始赋予变量数组随机数F...===========================================给你个思路。首先,定义20个数组。然后在过程里弄个for循环,比如for i = 1 to 20利用随机函数,生成65~90之间的函数,赋值到变量,比如 str=Int((90 - 65 + 1) * Rnd + 65)再弄个for循...===========================================Command1_Click() Dim i As Integer For i = 1 To 10 Print Int(Rnd() * 90) + 10; Next i Print End Sub Private Sub Form_Load() Command1.Caption = "产生随机数&q...===========================================Option Explicit Private Sub showScore() Dim score(1 To 20) As Integer Dim duan(1 To 5) As Integer Dim i As Integer Randomize For i = 1 To UBound(score)...=========================================== Dim a(1 To 4, 1 To 4), b(1 To 4, 1 To 4), d(1 To 4, 1 To 4) As Integer===========================================
本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注
可能有帮助2012年3月计算机二级VB选择题及参考答案：数组[1]
【网络综合 - 计算机等级考试试题】　　1．下面数组声明语句，_________正确。 　　A）Dim a[2,4] As Integer 　　B）Dim a(2,4)As Integer 　　C）Dim a(n,n)As Integer 　　D）Dim a(2 4)As Integer 　　2．假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是________。 　　A)数组中每个命令按钮的名称(名称属性)均为Command1 　　B)数组中每个命令按钮的标题(Caption属性)都一样 　　C)数组中所有命令按钮可以使用同一个事件过程 　　D)用名称Command1(下标)可以访问数组中的每个命令按钮 　　3．下面数组声明语句中，数组包含元素个数为 ________。 　　Dim a(-2 to 2,5) 　　A）120 　　B） 30 　　C ）60 　　D）20 　　4．下面程序的输出结果是 ________。 　　Dim a 　　a = Array(1,2,3,4,5,6,7) 　　For i = Lbound(a)to Ubound(a) 　　a(i)= a(i)* a(i) 　　Next i 　　Print a(i) 　　A）36 　　B）程序出错 　　C）49 　　D）不确定 　　5．下面程序的输出结果是 ________。 　　Option Base 1 　　Private Sub Command1_Click() 　　Dim a%(3, 3) 　　For i = 1 To 3 　　For j = 1 To 3 　　If j > 1 And i > 1 Then 　　a(i, j)= a(a(i - 1, j - 1), a(i, j - 1))+ 1 　　Else 　　a(i, j)= i * j 　　End If 　　Print a(i, j); ""; 　　Next j 　　Print 　　Next i 　　End Sub 　　A） 1 2 3 　　2 3 1 　　3 2 3 　　B）1 2 3 　　1 2 3 　　1 2 3 　　C ）1 2 3 　　2 4 6 　　3 6 9 　　D）1 2 3 　　2 2 2 　　3 3 3 　　6．在设定Option Base 0后，经Dim arr(3,4）As Integer 定义的数组arr含有的元素个数为________。 　　A）12 　　B） 20 　　C ）16 　　D）9 　　7．用下面语句定义的数组的元素个数是________。 　　Dim A (-3 To 5)As Integer 　　A）6 　　B） 7 　　C）8 　　D）9 　　8．有如下程序代码，输出结果是________。 　　Dim a() 　　a=Array(1,2,3,4,5) 　　for i=Lbound(a)to Ubound(a) 　　print a(i); 　　next I 　　A）1 2 3 4 5 　　B）0 1 2 3 4 　　C ）5 4 3 2 1 　　D）4 3 2 1 0 　　9．设有如下数组声明语句，________是正确的。 　　A）Dim a[3,4] As Integer 　　B）Dim a(n,n)As Integer 　　C）Dim a(3,4) As Integer 　　D）Dim a(3 4)As Integer 　　10．窗体上已有Visual Basic 数组选择题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
Visual Basic 数组选择题
V​i​s​u​a​l​ ​B​a​s​i​c​ ​数​组​选​择​题
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Print a(i_百度作业帮
拍照搜题，秒出答案
Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Print a(i
Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Print a(i
可以把代码粘在问题补充里}