vb100题含答案

1、18. 为了使标签的大小根据其Caption属性的值自动扩大或缩小，则应设置标签的（B ）属性为True。（A）WordWrap （B）AutoSize（C）Stretch（D）AutoRedraw19. 为了使图片自动调整尺寸以适应图像框的大小，则应设置图像框的（C ）属性为True。（A）WordWrap（B）AutoSize （C） tretch （D）AutoRedraw20. 如果一个变量未声明其类型，则该变量的类型为（D ）（A） Integer   （B） Byte （C） Boolean  （D） Variant21. 在程序运行期间将当前文件夹下图形文件装

2、入窗体的图片框Picture1中，用语句（A） Picture1.Picture=""（B） Picture1.Picture=LoadPicture("")（C） LoadPicture("") （D） Call LoadPicture("")22. 在一个较长的程序语句放在几行时，可以用续行符。续行符是（C ） （A）， （B）； （C）_ （D）：23. 下列对象中，（ B ）不是容器（父）控件。（A）Form （B）Image （C）PictureBox （D）Frame24. 在窗体上建立通用对话框需要添

3、加的控件是（C ）。（A）Data控件 （B）Frame控件 （C）CommonDialog控件 （D）ComboBox控件25. 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（ D）。（A）True （B）2 （C）0 （D）126.一只红色的足球被踢进球门，则红色、足球、踢、进球门是（ A ）。(A) 属性、对象、方法、事件 (B) 属性、对象、事件、方法(C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法27. 若在某窗体模块中有如下事件过程Private Sub Command1_Click(Index As In

4、teger) End Sub则以下叙述正确的是（D ）（A） 此事件与不带参数的事件过程没有区别（B） 有一个名称为Command1的窗体，单击此窗体则执行此事件过程（C） 有一个名称为Command1的控件数组，数组中有多个不同类型的控件（D） 有一个名称为Command1的控件数组，数组中有多个相同类型的控件28. 在控件数组中。可以惟一标识每一个控件的属性是（ C ）。 (A) Name (B) Caption (C) Index (D) Enabled29. 在VB中，工程文件的扩展名是（ C ）。(A) .frm (B) .frx (C) .vbp (D) .vbw30变量bool_

5、flag是一个布尔型（逻辑型）的变量，则下面正确的赋值语句是（ D ）。(A)bool_flag="False" (B) bool_flag= .False. (C)bool_flag=#False#(D) bool_flag=False31、下列程序段的执行结果为( B )。Dim S(9)For i=0 To 9 S(i)=3*INext iPrint S(S(3)(A) 12 (B) 27 (C) 0 (D) 出错32、下列数组声明正确的是（ D ）。（A） n=5Dim a(1 to n) As Integer(B) Dim a(10) As IntegerReDi

6、m a(1 to 12)(C) Dim a() As SingleReDim a(3 ,4) As Integer(D) Dim a() As Integer n=5ReDim a(1 to n) As Integer33、下列控件中，没有Caption属性的是（B ）。(A) 框架 (B) 列表框 (C) 复选框 (D) 单选按钮34、下面关于计时器控件（Timer）的叙述中，错误的是（B ）。(A) 计时器控件运行时不可见 (B) 通过Color属性可设置计时器控件的颜色 (C)计时器控件只有一个事件即Timer事件(D)计时器的Interval属性值设为0时，计时器无效35.要在文本框T

7、ext1中显示列表框List1中最后一个项目的正确语句是（ C ）。(A)Text1.Text=List1.List(ListCount-1) (B)Text1.Text=List1.List(0)(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex36在组合框Combo1中选定某一项，单击命令按钮Command1即可删除该项，代码如下。Private Sub Command1_Click() If Combo1.ListIndex <> -1 Then Combo1.RemoveItem

8、 _B_End If End Sub(A)Combo1.ListCount (B)Combo1.ListIndex (C)Combo1.Text (D)Combo1.MultiSelect37. 设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是（ C ）。 (A)1+1/2+2/3+3/4+4/5 (B)1+1/2+

9、2/3+3/4 (C)1/2+2/3+3/4+4/5 (D) 1+1/2+1/3+1/4+1/538. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer Static y As Integer x = 10 y = 5 Call f1(x, y) Print x, yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer) x1 = x1 + 2 y1 = y1 + 2End Sub程序运行时，单击命令按钮，在窗体上显示的内容是(

10、D )。(A) 10 5 (B) 12 5 (C) 10 7 (D) 12 739. 下列程序段的执行结果为（ D）  a=75  If a > 70 Then I=2  If a < 90 Then I=4  Print "I=" I（A）I1   （B） I2 （C） I3 （D） I440. 从磁盘上读入一个名为“c:”的顺序文件，下面程序段正确的是（D ）。(A)Open "c:"For Output As # 2(B) Open c: For Input As # 1(C) F=&q

11、uot;c:"Open "F" For Input As # 2(D) F="c:"Open F For Input As # 141. 执行以下程序段,输出的结果为_B_(11)_。a$="abbacddcba"For i=6 To 2 Step -2x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X & Y & z)Next iPrint z(A) ABA (B) BBABBA (C) ABBABA (D) AABAAB42. 对于语句If a = b The

12、n c = d 的语法分析，_B(17)_是正确的。(A) a=b 和 c=d都是赋值语句 (B) a=b是关系表达式，c=d是赋值语句(C) a=b 和 c=d都是关系表达式 (D) a=b是赋值语句，c=d是关系表达式43. 下面的子过程定义语句中没有语法和逻辑错误的是_A_。(A) Sub S1(ByVal n%() (B) Sub S1(n As Integer) As Integer(C)Function S1(ByVal n As Integer) (D) Function S1%(ByVal S1 As Integer)44.窗体中有一个命令按钮，编写如下程序，程序运行后，输出结

13、果为_D_(27)_。Private Sub test(p,m,n) p=p+1: m=m+1: n=n+1 Print “Sub:”; p; m; n End SubPrivate Sub Command1_Click() a1=1: b1=2: c1=3 Call test(a1,b1+3,(c1) Print “Main:”; a1; b1; c1 End Sub(A) Sub: 2 6 4 Main: 2 6 4（B）Sub: 2 6 4 Main: 1 6 4(C) Sub: 2 6 4 Main: 1 2 3 (D) Sub: 2 6 4 Main: 2 2 345. 执行以下语句

14、后，a的值为_C(16)_Dim a As Integera = 1Do Until a = 100 a = a + 2Loop(A) 102 (B)100 (C)溢出 (D)10146. 在代码中定义了一个子过程。下面_C_调用该过程的格式是正确的。Sub P(a,b)End Sub（A)Call P （B)Call P 10,20 （C)Call P(10,20) （D)P(10,20)47需要将字符串S颠倒过来逆序排列形成字符串T，如将“ABCD”变成“DCBA”，下面的程序段中_D不能实现该功能。(A) s = "ABCD": t = "" Fo

15、r i = 1 To Len(s) t = t + Mid(s, Len(s) - i + 1, 1) Next i(B) s = "ABCD": t = "" For i = 1 To Len(s) t = Mid(s, i, 1) + t Next i(C) S = "ABCD": T = "" For i = Len(S) To 1 Step -1 T = T + Mid(S, i, 1) Next i(D) S = "ABCD": T = "" For i = Len

16、(S) To 1 Step -1 T = Mid(S, i, 1) + T Next i48设组合框Combo1中有3个项目，则_D可删除其中最后一项。(A)Combo1.RemoveItem Combo1.Text (B)Combo1.RemoveItem Combo1.Index(C) Combo1.RemoveItem Combo1.ListIndex (D)Combo1.RemoveItem Combo1.ListCount - 149. 下面这段程序的功能是_D_。n = Val(Text1.Text)For i = 2 To n For j = 2 To Sqr(i) If i M

17、od j = 0 Then Exit For Next j If j > Sqr(i) Then Print iNext i(A)输出n以内的奇数(B)输出n以内的偶数(C)输出n以内能被j整除的数(D)输出n以内的素数50. 要在下拉菜单中添加一条分隔线，则应在菜单编辑器中插入一个标题为_D_的菜单项。(A) = (B) * (C) & (D) 51.下面_D_不是邮件地址的组成部分。 (A)用户名(B)主机域名 (C) (D)口令 52.word文档的扩展名是B。 (A) Txt (B)Doc (C)Exe (D)Wps53.计算机的技术指标有多种，而最主要的应该是_B_。(

18、A)语言、外设和速度(B)主频、字长和内存容量(C)外设、内存容量和体积(D)软件、速度和重量54.已知英文字母m的ASCII码值为109，那么英文字母p的ASCII码值为_B_。 (A)111 (B)112 (C)113 (D)11455.Email中有古怪字符的原因是（ C ）。(A)操作系统不相同 (B)传输协议不一致 (C)文字编码不统一 (D)有病毒发作56.Internet上所有计算机是通过什么来相互辨认的( D)(A)域名(DNS) (B)主机名(HOSTNAME) (C) MAC地址 (D) IP地址 57.（C ） (A)发送邮件服务器 (B)接收邮件服务器 (C)邮件客户机

19、 (D)邮箱所有者58.把内存中数据传送到计算机的硬盘上去，称为_A_。(A)写盘   (B)输入  (C)显示     (D)读盘59.计算机网络的目标是实现_A_。(A)资源共享和信息传输  (B)数据处理   (C)文献检索    (D)信息传输60.在VB环境中，工程文件的扩展名是:C（A）.frm （B）.bas （C）.vbp （D）.frx61.将一个VB程序保存在磁盘上，至少会产生的文件是:C（A）.do(C).txt （B）.c

20、om、.exe （C）.vbp、.frm （D）.bat、.sys62在一个语句内写多条语句时，用来分隔每条语句的符号是B（A），（B）：（C）、（D）；63一句语句要在下一行继续写，续行符是C（A）+（B）-（C）_（D）64下面4项中合法的变量名是A（A）X_yz（B）123abc（C）integer（D）X-Y65.如下数组声明语句，正确的是BA）Dim a3,4As Integer（B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer（D）Dim a(3,4)As Integer66.如下数组声明语句：Dim a(3,-2 To 2,5) 则数组

21、a包含的元素的个数为A（A）120 （B）75 （C）60 （D）1367.以下程序，输出结果是DDim aa=Array(1,2,3,4,5,6,7)For i=Lbound (a) To Ubound (a)a(i)=a(i)*a(i)Next iPrint a(i)（A）49 （B）0 （C）不确定 （D）程序出错68.要存储n个单精度数，下列语句正确的是B (A)n=InputBox(“input n”) (B)Dim a()As Single Dim a (1 To n)As Single n=InputBox(“input n”) ReDim a(1 To n)(C)Dim a()

22、As Integer (D)Dim a(n)As Single n=InputBox(“input n”) ReDim a(n) Single69.已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素，正确的是A（A）a(-1,2) （B）a(4) （C）a-1,2 （D）a(0,6)70.下列有关控件数组与一般控件的区别的叙述中，最合理的是A（A）控件数组一定由多个同类型的控件组成，一般控件只有一个控件；（B）控件数组的Index为0，而一般控件的Index为空；(C) 控件数组的Index为1，而一般控件的Index为0；（D）控件数组的建立

23、通过Dim语句声明，而一般控件不必声明。70.在用菜单编辑器设计菜单时，必须输入的项是D (A)快捷键 (B)标题 (C)索引 (D)名称71.表达式16/4-25*8/4MOD52的值为B（A）14 （B）4 （C）20 （D）272数学关系3x10表示成正确的VB表达式为B（A）3=x10（B）3=x AND x10 （C）x=3 OR x10 （D）3=x AND 1073Rnd函数的值不可能为B（A）0（B）1（C）0.1234（D）0.000574 VB提供了结构化程序设计的3种基本结构，这3种基本结构是D（A）递归结构，选择结构，循环结构 （B）选择结构，过程结构，顺序结构（C）过

24、程结构，输入输出结构，转向结构 （D）选择结构，循环结构，顺序结构75.结构化程序由3种基本结构组成，下面属于3种基本结构之一的是B（A）递归结构（B）选择结构（C）过程结构（D）输入、输出结构76.下面正确的赋值语句是C（A）x+y=30（B）y=*r*r（C）y=x+30（D）3y=x77.为了给x,y,z这3个变量赋初值1，下面正确的赋值语句是A（A）x=1：y=1：z=1 （B）x=1,y=1,z=1 （C）x=y=z=1 （D）xyz=178.下面程序段：显示的结果是ADim x x=Int(Rnd)+5 Select Case x Case 5 Print“优秀”Case 4Pri

25、nt“良好”Case 3Print“通过”Case ElsePrint“不通过”End Select（A）优秀（B）良好（C）通过（D）不通过79.下面程序段求两个数中的大数，不正确的是D（A）      Max=IIf(xy,x,y) （B）If xyThen Max=x Else Max=y （C）Max=x （D）If y=x Then Max=yIf yx Then Max=y Max=x80.下面程序段：运行结果为DFor I=3 To 1 Step -1Print Spc(5-i)；For j=1 To 2*I-1Print “*”

26、；Next jPrintNext i（A）* （B）* （C）* （D）* * * * * * *81.下列程序：当在文本框输入“ABCD”这4个字符时，窗体上显示的是CPrivate Sub Textl _Change()Print Textl；End Sub（A）ABC （B）A (C)AABABC (D)AB ABC ABC83. 以下Case语句中错误的是 （C ）。（A）Case 0 To 10 （B）Case Is>10 （C）Case Is>10 And Is<50 （D） Case 3,5,Is>1084.下面程序段：Dim xIf x Then Pri

27、nt x Else Print x+1运行后，显示的结果是A（A）1（B）0（C）-1（D）显示出错信息85.语句If x=1 Then y=1,下列说法正确的是C（A）x=1和y=1均为赋值语句 （B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句， y=1为关系表达式86.若要使命令按钮不可操作，要设置的属性是A（A）Enabled （B）Visible（C）BackColor （D）Caption87.文本框所没有的属性是D（A）Enabled （B）Visible（C）BackColor （D）Caption88.不论何控件，共同具有的属性

28、是B（A）Text （B）Name （C）ForeColor （D）Caption89.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是D（A）Form1.Caption=“欢迎使用VB” （B）Form1.Caption=欢迎使用VB（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=欢迎使用VB90.要使某控件在运行时不可显示，通过设置可达到此要求的属性是B（A）Enabled （B）Visible（C）BackColor （D）Caption91.若要清除列表框的所有内容，可用来实现的方法是C（A）RemoveItem （B）Cls（C）Cl

29、ear （D）以上均不可以92.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是B（A）Timer1.Visible=False （B）Timer1.Enabled=False（C）Timer1.Interval=1000 （D）Timer1.Index=093.要获得用户在组合框输入的内容，应利用的组合框的属性是D（A）List （B）Selected（C）ListIndex （D）Text94.下列控件中，没有Caption属性的是B（A）框架 （B）列表框（C）复选框 （D）单选按钮95.复选框的Value属性为1时，表示B（A）复选框未被选中（B）复选框被选中（C）复

30、选框内有灰色的勾（D）复选框操作有错误96.用来设置粗体字的属性是C（A）FontItalic （B）FontName （C）FontBold （D）FontSize97.将数据项“China”添加到列表框（List1）中成为第一项应使用的语句是A(A)List1.AddItemChina,0 ()List1.AddItemChina,1(C)List1.AddItem 0, China (D)List1.AddItem 1,China98.引用列表框(List1)最后一个数据项应使用的语句是(A)List1.List(List1.ListCount) (B)List1.List(List1.

31、ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)99.假如列表框(List1)有个数据项，把数据项“China”添加到列表框的最后，应使用的语句是(A)List1.AddItem3，China (B)List1.AddItemChina,List1.ListCount-1(C)List1.AddItemChina,3 (D)List1.AddItemChina,List1.ListCount100.执行了下面的程序：列表框中的数据项为ASub Form_Click()For i=1 To 6 List1.AddIte

32、m iNextFor i=1 To 3 List1.RemoveItem iNextEnd Sub (A)1,5,6 (B)2,4,6 (C)4,5,6 (D)1,3,5101.如果列表框(List1)中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是D(A)移去第一项 (B)移去最后一项(C) 移去最后加入列表的一项 (D)以上都不对102.在下列说法中，正确的是D(A)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B)在列表框中不能进行多项选择(C)在列表框中能够将项目按字母顺序从大到小排列(D)框架也有Click和Dbl

33、Click事件103. 以下能判断是否到达文件尾的函数是（D ）。 （A）BOF （B）LOC （C）LOF （D）EOF 104.下面子过程语句说明合法的是A（A）Sub f1(ByVal n%) (B)Sub f1(n%)As Integer(C)Function f1%(f1%) (D)Function f1(ByVal n%)105.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C（A）Sub f2(ByVal n%,ByVal m%) (B) Sub f1(n%,ByVal m%) (C) Sub f1(n%,m%) (D) Sub f1(ByVal n%,m%)106.

34、下面过程运行后显示的结果是APubic Sub F1(n%,ByVal m%) Private Sub Command1_Click()N=n Mod 10 Dim x%,y%M=m10 x=12:y=34End Sub Call F1(x,y) Print x,y End Sub（A）2 34 (B)12 34 (C)2 3 (D)12 3107.如下程序：运行的结果是CDim a%，b%，c%Public Sub p1 (x%，y%)Dim c%X=2*x：y=y+2：c=x+yEnd SubPublic Sub p2 (x%，,Byval y%)Dim c%X=2*x：:y=y+2：c=

35、x+yEnd SubPrivate Sub Command1_Click()A=2：b=4：c=6Call p1(a,b)Print“a=”;“b=”;“c=”；cCall p2(a,b)Print“a=”;“b=”;“c=”;cEnd Sub（A）a=2 b=4 c=6 (B) a=4 b=4 c=10 (C) a=4 b=6 c=6 (D) a=4 b=6 c=14a=4 b=6 c=10 a=8 b=8 c=16 a=8 b=6 c=6 a=8 b=8 c=6108.按文件的访问方式分有A(A)顺序文件、随机文件和二进制文件 (B) 顺序文件、ASCII文件和二进制文件(C) 顺序文件、

36、程序文件和数据文件 (D)磁盘文件和打印文件和二进制文件109. 确定一个控件在窗体上的位置的属性是 （C）。（A）Width和Height（B） Width或Height（C）Top和Left （D）Top或Left110. 确定一个控件在窗体上的大小的属性是 （ A）。（A） Width和Height （B）Width或Height（C）op和Left（D）Top或Left1、设a=6，则执行x = IIf(a>5,-1,0)后，x的值为_-1_。2、Visual Basic提供了三种对数据文件的访问方式，它们是顺序方式、随机访问方式和二进制访问方式。3、 赋值语句：a = 456

37、& Mid("123456",3,2)执行后，a变量的值_45634_。4如果建立菜单时在标题文本框中输入个 减号 ,那么显示时形成一个分隔符。5菜单的热键指使用 Alt 键和菜单项标题中的一个字符来打开菜单。建热键的方法是，在菜单标题的某个字符前加上一个 & 符号，则菜单中这一字符自动加上 下划线 ，表示该字符是热键字符6.EOF函数判断 文件指针 是否到了文件结束标志。LOF函数返回文件的 长度（字节数） 。7.列表框中项目的序号是从 0 开始的。8. listcount-1 表示列表框中最后一项的序号。9. Clear 方法可清除列表框的所有内容。10

38、.滚动条产生Change事件是因为 Value 值改变了。11.如果要每隔15秒产生一个计时器事件，则Interval属性应设置为 15000 。12.表示x是5的倍数或是9的倍数的逻辑表达式为 x Mod 5=0 Or x Mod 9=0 。13表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为Ucase(s) =“A”And Ucase(s) “Z”或者Lcase(s) =“a”And Lcase(s) =“z” 。14、以下程序代码的输出结果是_ False_。x = 10y = 5Print x 2 >= y 315、以下程序段的输出结果是_3 _。Private Sub

39、 Form_Click() num = 0 Do Until num > 2 num = num + 1 Loop Print numEnd Sub16、执行下面的程序段后，变量S的值为_ 5 _。 S1 For i 1 To 10 Step 3 S=S+1 Next i17、完善程序。将100至150之间的偶数，拆分成一对素数之和。函数过程Prime用于判断一个数是否为素数。Private Function Prime(ByVal x As Integer) As Boolean Prime = True For i = 2 To Sqr(x) If _x Mod i=0_ Then

40、Prime = _False_ Exit Function End If NextEnd FunctionPrivate Sub Form_Click()Dim i%, k%, n%For n = 100 To 150 _step 2_ For k = 3 To n / 2 If Prime(k) And _Prime(n-k)_ Then Print n; "=" k; "+" n k Exit For End If Next k Next nEnd Sub18、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框T

41、ext1中显示出来。请填空。Private Sub Command1_Click()Dim Data As StringText1.Text = ""Open ".smtext1.txt" for input As #1Do While Not EOF(1) Data = Input(1，#1)Text1.Text = Text1.Text & DataLoopClose #1End Sub19、运行下列程序，单击命令按钮，则Text1中显示_5_，窗体中显示_0_。Private Sub Command1_Click() Dim i As In

42、teger, j As Integer, a(5, 4) As Integer For i = 2 To 3 For j = 2 To 4 a(i, j) = i + j Next j Next i Text1.Text = a(3, 2) Print a(3, 1)End Sub20、请完善以下判断完数的程序。一个数如果恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。例如6是一个完数，因为6=1+2+3。Private Sub CmdJudge_Click()Dim a()m = Val(Text1.Text)ReDim a(1)a(1) =

43、1k = _0_j = 1For i = 2 To m - 1 If m Mod i = 0 Then k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim _Preserve_ a(j) a(j) = _i_ End IfNext iIf _m=k_ Then Picture1.Print m & "是完数" Picture1.Print m; "=" For i = 1 To UBound(a) - 1 Picture1.Print a(i); "+" Next i Picture1

44、.Print _m_Else Picture1.Print m & "不是完数"End IfEnd Sub21、窗体中有一个文本框Text1和一个列表框List1。程序运行时在文本框中输入字符串并回车，如果该字符串内容在列表框中不存在，就把它添加到列表框中；如果该字符串内容在列表框中已存在就给出如右图的提示信息。填空完成下面的程序。Private Sub Text1_ KeyPress_(KeyAscii As Integer) If KeyAscii = 13 Then For i = 0 To List1.ListCount - 1 If Text1.Text

45、= List1.List(i)_ Then MsgBox_ "输入项已在列表框中" Exit Sub _End If_ Next i List1. additem_ Text1.Text End IfEnd Sub22、执行语句 Print String(5, "ABC")，窗体中将显示_AAAAA_。23、根据边长判断是否能构成三角形，若能，则判断三角形类型(等边、等腰、直角)Private Sub Command1_Click()Dim a%, b%, c%a = InputBox("请输入三角形的第一条边：")b = Input

46、Box("请输入三角形的第二条边：")c = InputBox("请输入三角形的第三条边：")If a + c > b Or a + b > c Or b + c > a _ Then MsgBox "能够成三角形" If a = b And b = c Then MsgBox “能构成等边三角形”_ ElseIf a = b Or a = c Or b = c Then MsgBox "等腰三角形" End If If a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or

47、c 2 + b 2 = a 2 Then MsgBox "直角三角形" End IfElse_ MsgBox "不能够成三角形"End IfEnd Sub24、下面程序中自定义了一个子过程Factorial，作用是求整数n的阶乘，将结果保存在双精度数f中。在Form_Click过程中调用Factorial子过程，求10的阶乘并打印结果。请完成这段程序。Private Sub Factorial (n%, f !) f = 1 For i = 1 To n _f=i*f_ Next iEnd SubPrivate Sub Form_Click() Dim

48、dF!_ Factorial 10,dF Print "10的阶乘为：" dFEnd Sub25.下列程序段找出被3、5、7除，余数为1的最小的5个正整数，请在下划线处填入相应的内容。Private Sub Command1_Click()Dim CountN%,n%CountN=0n=1Don=n+1If n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ThenPrint nCountN=CountN+1End IfLoop Until CountN=5 End Sub1. 在文本框Text1中输入一串字符，统计其中字母（不区分大小写），数字和其他字符的个数。2. 输入一个整数，判断该数是否是素数。3. 随机产生20个200400之间随机整数，按每行4个输出到Picture中，并求出其中的最大值。4. 随机产生10个数存入数组中，用选择排序法对其从小到大的顺序排序。5.输入一个整数，判断该数是否是回文数。6. 输入一个整数，判断该数是否是水仙花数（所谓水仙花数是指一个三位数，它的个位、十位、百位数字的立方和恰巧等于这个数本身。例如：153=13+53+33）7. 分别输入年份以及月