淮师期末真vb填空改修正版尊贵独享版.docVIP

真·超级·无敌·vb期末填空最终形态·完全体·零式·改 必看题 1.若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和(2)，则应当使用______语句。【ReDim a(2)】 2.下面程序的功能是从键盘输入1个大于100的整数m，计算并输出满足不等式 的最大的n。请填空。------【0】 【n-1】 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBox(请输入一个大于100的整数)) n=______ s=0 Do While sm n = n+1 s = s+n*n Loop Print 满足不等式的最大n是;______ End Sub 3.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a$=National Computer Rank Examination n=Len(a$) s=0 For i=1 To n b$=Mid(a$,i,1) If b$=n Then s=s+1 End If Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是______。【4】 4.以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在______处填入适当的内容，将程序补充完整。 Private Sub Form_Click() Dim x As Single, amax As Single, amin As Single x = InputBox(Enter a score) amax = x amin = x Do While______ If x amax Then amax = x End If If ______ Then amin = x End If x = InputBox(Enter a score) Loop Print Max=; amax, Min=; amin End Sub------【x=0】【xx或amin=x】 5.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text = VB程序设计 End Sub Private Sub Text1_Change() Picture1.Print VB Programming End Sub 程序运行后，单击窗体，则在文本框中显示的内容是_______，而在图片框中显示的内容是_______。【VB程序设计】【VB Programming】 6.在窗体上画一个名称为Command1的命令按钮，编写如下事件过程 Private Sub Command1＿Click Dim a As String a=_________ For i=1 To 5 Print Space(6-i);Mid$(a,6-i,2*i-1) Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。--【123456789】 7.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的______属性设置为______。【interval】【500】 8.执行下面的程序段后，b的值为______。[300] a = 300 B = 20 a = a + B B = a - B a = a – B 9.执行下面的程序段后，变量S的值___________。[9] S=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i 10.在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；