当前位置: 首页> 英语作文> 四季英语作文>

VB程序练习资料二

发布时间:2020-07-10 14:18:00 浏览数:

  在窗体模块的通用声明处有如下语句,会产生错误的语句是______a______。

 ①Const A As Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、②③④

 B、①③

 C、①②

 D、①②③

 下面的过程定义语句中合法的是___b____。

 A、Sub Procl ( n ) As Integer B、Function Procl (ByVal n ) C、Function Procl (Procl ) D、Sub Procl (ByVal n () )

 可以在窗体模块的通用声明段中声明的是____a____________。

 A、全局用户自定义类型 B、全局常量 C、全局数组 D、全局变量

  在窗体上添加一个命令按钮,名为Command1,事件过程如下。执行结果是___d_____。

 Sub pb(b( ) As Integer) For i=1 To 4 B(i)=2*i Next i End Sub Private Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb a For i=1 To 4 Print a(i); Next i End Sub A、3 6 6 12 B、1 3 5 7 C、4 8 12 16 D、2 4 6 8

  在调用Sub过程或Function过程时,采用_________c_______传送相应过程的变量名、数组名、常数或表达式。

 A、形式参数

 B、对象参数

 C、实际参数

 D、数组参数

  程序中的不同过程之间,不能通过_____b_______进行数据传递。

 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A、②④ B、④ C、①②④ D、①②③

  Sub过程和Function过程最根本的区别是_________a_______。

 A、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值

 B、Function过程可以有参数,Sub过程不可以

 C、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以 D、两种过程参数的传递方式不同

  用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数,若不符合排序要求则互换值,直到最后一个数;然后再开始第二轮的比较,至所有数全部比较结束。排序过程中大数后退,小数前行,犹如水泡往上冒。请完善以下程序段_____b___。

 n=1O For i= 1 to n-1 For j= 1 to n-i If ____________ Then ……"互换语句 End If Next j Next i A、a(i)<a(i+1) B、a(j)>a(j+1) C、a(i)>a(j) D、a(i)<a(j)

  在窗体中添加一个命令按钮,并编写如下程序代码:

 Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y<7 y=y+2 Loop MsgBox y End Sub 程序运行后,消息对话框中显示___b_______。

 A、0 B、8 C、7 D、2

 运行以下程序段,输出结果是___b_。

 Dim a(1 To 10) Dim p(1 To 4) k = 5 For i = 1 To 4

  p(i) = i * 2 Next I For i = 1 To 4

  k = k + p(i) * 2 Next I Print k A、30 B、45 C、32 D、48

 阅读下列程序,其输出的结果是____d____。

 Private Sub Command1_Click()

  Dim a(1 To 3) As Integer

  For i=1 To 3

  a(i)=i<br />

  Next i

  Call sub1(a)

  For i=2 To 3

 Print a(i)

  Next i End Sub Public Sub sub1(a() As Integer)

  For i=1 To 3

 a(i)=i*I

  Next I End

 A、1 2 B、1 4 C、2 3 D、4 9

 下列程序段的执行结果是__d______。

 Dim A(3,3) For M=1 TO 3 For N=1 TO 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 TO 3 For N=1 TO 3 Print A(M,N); Next N Print Next M A、0 0 0 0 0 0 0 0 0 B、1 1 1 1 1 1 1 1 1 C、1 0 0 0 1 0 0 0 1

  D、1 0 1 0 1 0 1 0 1

  程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是____b_____。

 Option Base 1 Private Sub Command1_Click( ) Dim i As Integer Dim x(3,3)As Integer For i = 1 To 3 For j = 1 To 3 x(i,j) = (i-1) * 3+j Next j Next i For i = 1 To 3 Print x(i,4-i) Next i End Sub A、1 4 7 B、3 5 7 C、3 6 9 D、1 5 9

  在窗体上画一个命令按钮,然后编写如下事件过程:

 Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub 运行程序,单击命令按钮,其输出结果是____a___。

 A、1234 B、12

  C、4321 D、34

 当发生Command1_Click事件后,程序输出结果是_____c___。

 Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer,i As Integer,s As Integer s=0 For i=1 To 4

  For j=1 To 4

  a(i, j) = (i-1)*4+j*2

  Next j Next i For i = 1 To 4

  s=s+a(i, i) Next I Print s End Sub A、30 B、32 C、44 D、28

 哪个程序段不能分别正确显示1、2、6、24的值__d___。

 A、For i=1 To 4 n=1 For j=1 To i N=n*j Next j Print n Next i B、n=1 For j=1 To 4 N=n*j Print n Next j

  C、n=1 j=1 Do While j<=4 n=n*j Print n j=j+1 Loop D、For i=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i

 下面的表达试的值为真的是____a____。

 A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12) B、78.9/32.77 < = 97.5/43.97 AND -45.4 > 4.98

 C、“ABCRG” > ”abcde”

 D、Int(134.69) > Cint(134.69)

 执行语句 Print Format(1234.567,“##,##0.00”) 后,输出结果是_______a_____。

 A、1,234.57 B、1,234.56 C、1,234.567 D、1234.57

 以下哪个是合法的变量名____c________。

 A、Len B、Test@qw C、count2s

 D、6cost_1

  执行程序,单击窗体后在窗体上显示的结果是__b___。

 Private Sub Form1_Click()

 Dim Str1 As String, Str2 As String, i As Integer

 Str1="ab"

 For i=Len(Str1)To 1 Step-1

  Str1=Str1 & Chr(Asc(Mid(Str1,i,1))+i)

 Next i

 Print Str1 End Sub A、abce B、abdb C、abfd D、abcd

  在窗体(Name属性为Fomal)上画两个文本框(Name属性分别为Fext1和Text2)和一个命令按钮 (Name属性为Command1),程序如下。执行后结果为___c__。

 Private Sub Command1_Click()

 a=Text1.Text+Text2.Text

 Print a End Sub Private Sub Form_load()

 Text1.Text="123"

 Text2.Text="321" End Sub A、132231 B、444 C、123321 D、321123

  执行下面的程序,单击按钮 Command1 ,窗体上显示的结果中 I 的值是____10_, J 的值是__1___, K 的值是___38__。

 Option Explicit

 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer i =2: j = 1 k = fun(i, fun(i, j)) + i + j Print "i="; i; "j="; j; "k="; k End Sub Function fun(a As Integer, ByVal b As Integer) As Integer a = a + b b = a + b fun = a + b End Function

  窗体中有一文本框Text1,执行下面程序后,窗体上结果是__23

  47___,文本框中输出结果是___47__。

 Option Explicit Private Sub Form_Click( ) Dim a As Integer a=2 Call Sub1(a) Text1.Text=a End Sub Private Sub Sub1(x As Integer) x=x*2+1 If x<10 Then Call Sub1(x) End If x=x*2+1 Print x; End Sub

 下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示"1!+2!+3!+...+10!"的和。完善下列程序。

 Private Sub Form_Click( ) Dim s As Long,I As Integer s=0 For i=1 To 10 s=s+ ____ fact(i) _

 Next i Print s End Sub Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i ____ fact=f _ End Function

 如下程序,运行的结果是___ 8 8 3 4 5 __,若将A语句改为Static i%,运行的结果是__ 3 5 7 4 5 ___。

 Public Sub Proc(a%()) Dim i%

  "A Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub Private Sub Command1_Click() Dim m%, i%, x%(10) For i=0 To 4 x(i)=i+1 Next i For i=1 To 2 Call Proc(x) Next i For I=0 To 4 Print x(i); Next i

  End Sub

  下程序的功能是找出此数各位数字的阶乘相加之和等于该数,并在列表框List1中显示。阶乘由Function计算。

 Private Sub Command1_Click( ) For k=1 To 1000 a=LTrim(Str(k)) n=0 For i=1 To Len(a) p=Val(Mid(a,i,1)) n=n+fact(p) Next i If n=k Then___ List1.AddItem k __ Next k End Sub Private Function fact(x) if x<=1 Then fact=1 Else fact=___ fact(x-1)*x __ End If End Function

  以下函数过程的功能是判断n是否是水仙花数。

 Function __ fact ___(byval n as integer) as __ Boolean ___ Dim a As Integer, b As Integer, c As Integer A=__ n mod 10 ___ B=(n mod 10)\10 C=n\100 If n=a^3+b^3+c^3 then Fact=true Else Fact=false endif End function

 以下程序段产生100个1-4之间的随机整数,并进行统计。数组元素s(i)的值表示等于i的随机数的个数,要求输出如下格式:

 s(1)=…… s(2)=…… s(3)=…… s(4)=…… 将程序补充完整。

 Private Sub Form_Click() Dim s(4) As Integer Randomize ___ for i=1 to 100 __ x = Int(Rnd * __ 4 ___ + 1) s(x) = s(x) + 1 Next i __ for i=1 to 4 ___ Print ___ "s(";i")";"=";s(i) __ Next i End Sub

  本程序用于验证一个自然数N的立方等于N个连续奇数之和,其中最大的奇数P=N*(N+1)-1 例如,43=19+17+13,最大奇数为19。

 当程序执行后,分别给对话框输入4和6时,问计算结果分别为__ 4 13 ___和__ 6 31 ___。

 Private Sub Command1_Click( ) Dim s As String n = InputBox("输入一个自然数") num = n * n * n p = n * (n + 1)-1 x = p k = 1 Do Until x = num p = p-2 x = x + p k = k + 1 Loop Print Print k; p End Sub

 运行下面程序,单击窗体后在窗体上显示的内容是__ 10

 220 ___;

 若将程序中的A语句和B语句调换位置,再次执行程序,单击窗体后在窗体上显示的内容是__10 120___。

 private Sub Form_Click() Dim a As Integer, b As Integer a = 0: b = 0 Do While a <=8 a = a + 2

  "A b = b + a * a

  "B Loop Print a, b End Sub

  下列程序执行后,打印结果是___ 198 __。

 Option Explicit Private Sub Command1_Click( ) Dim i As Integer Dim sum As Integer sum = 0 For i = 3 To 100 If i Mod 3 = 0 And i Mod 11 = 0 Then sum = sum + i End If Next i Print sum End Sub

  若一个数的各因子之和正好等于该数本身,则该数称为完全数。如6的因子为1,2,3,其和为6,则6为完全数。编程找出1~100之间的所有完全数。

 完善下列程序。

 Private Sub Command1_Click( ) Dim a As Integer, b As Integer, c As Integer, i As Integer For a = 2 To 100 ___c=1__ For b = 2 To a-1

  If a Mod b = 0 Then c = b+c End If Next b If___c=a__Then Print a End If Next a End Sub

上一篇:篮球训练总结

上一篇:钢筋焊接程序(中英)

相关范文