江苏省等考VB上机真题汇总.doc

.2008春VB03一、改错题（14分）【题目】本程序功能是求二维的随机整数数组每一行元素中素数的个数。Option ExplicitDim a() As Integer, m As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer, j As Integer m = InputBox(行数, , 4) n = InputBox(列数, , 5) ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd SubPrivate Sub Command2_Click() Dim i As Int