算法与程序设计VB试题与答案08_vb程序设计试题及答案

算法与程序设计VB试题与答案08由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计试题及答案”。

VB081、打开“考生文件夹781”中的文件“test4.vbp”，完善Command1_Click事件代码并保存。

实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等。输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”。使用文本框Text1输入字符串，使用文本框Text2输出结果。

Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①

If Mid(s, i, 1)② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok

2、打开文件“考生文件夹606工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。

Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①

For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s

3、打开“考生文件夹779test2.vbp”，完善Command1_Click事件代码并保存。

实现功能：输入一个正整数，计算并输出它的各位数字之和。如输入123，则输出6。使用文本框Text1输入正整数，使用文本框Text2输出计算结果。

Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)

4、打开文件“考生文件夹607工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)

Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②

③

Print “这10个自然数的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

5、打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：单击窗体时在窗体上打印下面所示的图案。

**** *** ** *

Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4

②print “*”;③next i

6、打开文件“考生文件夹610工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：

@ @@ @@@ @@@@ @@@@@ @@@@@@

Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i

②”@”;③j