vb题目及答案.docVIP

1、用二分法求函数f(x)=x3-6x-1=0在x=2～5范围内的x=2附近的一个实根，其计算误差为| x1-x2|10-6。 将二维数组元素的行列互换（即求转置矩 ???? private sub ommand1-click() ?? 用牛顿迭代法解方程 Dim x as single,x0?as single,f as single fl as single x0=2 Do ??? x0=x ??? f=(x^2-6)*x-1 ??? fl=2*x^2-6 ??? x=x0-f/fl ??? loop while abs(x-x0)=0.000001 print print tab(8）；“解方程x^3-x*6-1=0 print tab(8)；“方程的解=”x end sub 2、将二维数组元素的行列互换（即求转置矩阵） 阵） ? 3、编写一个程序, 利用随机函数生成15个80~99之间的随机整数，输出其中的最大值与最小值。 private sub command1_click() print a; if i=7 or i=15 then print next print ; max print 最小值：; min end sub 4、编写程序生成一个二维数组A(5, 5)，求两条对角线元素之和。 Option Explicit Private Sub Command1_Click() Dim a(5, 5) As Integer Dim i As Integer Dim j As Integer Dim x As Integer Dim y As Integer For i = 0 To 5 For j = 0 To 5 a(i, j) = Int(100 * Rnd) 随机产生一个0~100的整数 If i = j Then x = x + a(i, j) If i + j = 5 Then y = y + a(i, j) Next Next MsgBox 两条对角线元素之和分别是 x , y End Sub 5、编写程序将文本框Text1中的大写字母放到文本框Text2中。 Dim a As string,b As string,c As string a=Text1.Text. For i=1 To len（a） b=Mid(a,i,1) If Asc（b）=65And Asc(b)=90 Then c=c+b End If Text2.Text=c 6、随机生成20个两位正整数存放到Text1中，找出其中的偶数并以与找出相反的顺序存放到Text2中。 option bace 1 private sub Form_laod() Dim a As string,b As string,c As string Dim i As Interger a = Text1.text For i = 1 to Len(a) b=Mid(a,i,1) ? If Asc(b)=65AndAsc(b)=90 Then c=c+b End If Next i Text2.text=c 7、编写程序将窗体上文本框Text1中的字符串中的所有大写字母出到文本框Text2中。 option bace 1 private sub form_load() Dim a As string,b As string,i As Interger,d As interger,c As string e As string?a=text1.text For i = 1 To Len(a) 牋?b = Mid (a,i,1) ?if ase(b)=65AcdAsc(b)=90 Then c=c+b End If For i =1 To Len(c) a(i)=Mid(c,i,1) Nexti d=Len(c) For i =1 to Len(c) 牋牋e =a(d+i)+e 牋?Next i Text2.text=e?牋? 8、编写程序输出二维数组中所有非零元素及其所在位置。 用a(i,j)表示二维??????????????????? print option base 1????????????????????print非零元素所有位置为“ private sub form.load()??????????? fori =1to n dim i as interger,j as integer,??? for j=1to m f