算法与程序设计VB试题与答案08.docx

《算法与程序设计VB试题与答案08.docx》由会员分享，可在线阅读，更多相关《算法与程序设计VB试题与答案08.docx（5页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、算法与程序设计VB试题与答案08 VB08 1、打开“考生文件夹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 F

2、or 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 =

3、 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

4、=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) Nex

5、t 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、打开文件“考生文件夹

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 算法与程序设计VB试题与答案08 算法与程序设计VB试题与答案10 VB程序设计试题与答案 算法与程序设计 算法与程序设计教案 算法与程序设计思想 VB程序设计的常用算法教案 VB程序设计试题及答案(一) 算法与程序设计选修教案 算法与程序设计教学探究 本文来源：网络收集与整理，如有侵权，请联系作者删除，谢谢！第5页 共5页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页第 5 页 共 5 页