VB题库—程序填空[1].doc

1、程序填空第 1 题程序填空(1 分)(题号 :59)-【程序填空】- 功能：输入一个数,若大于 0,则显示“+“ ；若小于 0， 则显示 “-“；若等于“0“, 则显示“ 零“。-Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x*SPACE*Case is 0Label1.Caption = “+“Case Is 02). Label1.Caption = “-“3). Case 0 或 Case Else 或 Case Is = 0第 2 题程序填空(1 分)(题号 :60)-【程序填空】-功能：输入任何一个英文字母

2、x, 若 x 的值为“a“,“c“,“d-f“ ,则显示 x 的大写字母； 若 x 的值为 “m“,“o“,“p-z“,则显示 x的小写字母； 若 x 的值为其它的值,则显示 xa（如输入的 X 的值是 g，则显示 ga） 。-Private Sub Command1_Click()x = Text1.Text*SPACE*【?】*SPACE*Case 【? 】Label1.Caption = UCase(x)Case “m“, “o“, “p“ To “z“Label1.Caption = LCase(x)Case Else*SPACE*【?】End SelectEnd Sub答案：1).

3、Select Case x2). “a“, “c“, “d“ To “f“3). Label1.Caption = Trim(x) + “a“ 或 Label1.Caption = x + “a“第 3 题程序填空(1 分)(题号 :36)-【程序填空】-功能：以下程序的功能如(图 1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(“请输入 a 的值“)b = InputBox(“请输入 b 的值“)c = InputBox(“请输入 c 的值“)d = b * b - 4 * a *

4、 cp = -b / (2 * a)If d = 0 Then*SPACE*If 【?】 Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p*SPACE*【?】Print “x1=“; x1, “x2=“; x2*SPACE*【?】q = Sqr(-d) / (2 * a)Print “x1=“; p; “+“; q; “i“, “x2=“; p; “-“; q; “i“End IfEnd Sub答案：1). d 0 或 0 = 90 ThenLabel1.Caption = “优秀“*SPACE*ElseIf 【?】The

5、nLabel1.Caption = “良好“ElseIf x = 60 Then*SPACE*【?】*SPACE*【?】Label1.Caption = “不及格“End IfEnd Sub答案：1). x = 75 或 75 = 90n1 = n1 + 1Case Is = 80n2 = n2 + 1Case Is = 70n3 = n3 + 1Case Is = 60n4 = n4 + 1Case Elsen5 = n5 + 1*SPACE*【?】score = Val(InputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5,totalEnd

6、 Sub答案：1). score =0 And score =score 或 score =0 And 100=score2). score3). End Select第 9 题程序填空(1 分)(题号 :56)-【程序填空】-功能：输入数字 1-7,显示其对应是星期几(例:输入 1,显示星期日, 如果输入其它内容，一律显示 “输入错误“)-Private Sub Command1_Click()dim x as integerdim y as stringx=val(text1.text)*SPACE*【?】case 1y=“今天是星期日“case 2y=“星期一“case 3y=“星期二“

7、case 4y= “星期三“case 5y=“星期四“case 6*SPACE*【?】case 7y= “星期六“*SPACE*【?】y = “输入错误“end selectText2.Text = yEnd Sub答案：1). select case x2). y=“星期五“3). Case Else第 10 题程序填空(1 分)(题号 :41)-【程序填空】-下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。-Private Sub Form_Click()Print “5 个数 34、124、68、73、352 的最大值是：“max1 = max(34, 1

8、24, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Thenm = aElsem = bEnd If*SPACE*If 【?】 Thenmax = mElsemax = cEnd IfEnd Function答案：1). max(max1, 73, 352)2). ab 或 b c 或 c a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x*SPACE*【?】End IfNext j*SP

9、ACE*If work Then 【?】Next iFor i = 1 To nPrint a(i);Next iEnd Sub答案：1). Step -12). work = False 或 work=0 或 not work = true3). Exit For第 12 题程序填空(1 分)(题号 :37)-【程序填空】-功能：以下程序用于判断一个正整数（3）是否为素数。-Private Sub Form_Click()n = InputBox(“请输入一个正整数（ 3）“)k = Int(Sqr(n)i = 2swit = 0*SPACE*Do While i “?“ 或 not ch

10、= “?“ 或 not “?“=ch2). “A“ To “Z“3). Loop第 15 题程序填空(1 分)(题号 :54)-【程序填空】-功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。-Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox(“请输入要删除的整数 “)For i = 1 To 10*SPACE*If

11、a(i) = x Then 【?】Next i*SPACE*If 【?】 ThenFor k = i To 9*SPACE*【?】Next kPrint “删除后的数组:“For i = 1 To 9Print a(i);Next iElsePrint “该数字不在数组中“End IfEnd Sub答案：1). Exit For2). ii3). a(k) = a( k + 1)第 16 题程序填空(1 分)(题号 :48)-【程序填空】-功能：利用下面的过程求 m!和 m*n-Private Sub Form_Click()Dim m As Integer, n As Integerm =

12、2n = 3*SPACE*【?】End SubPrivate Sub find(x As Integer, y As Integer)Dim s, i As Integer*SPACE*【?】For i = 1 To xs = s * i*SPACE*p=【?】Next iPrint s, pEnd Sub答案：1). find m, n 或 call find(m,n)2). s = 1 或 s = 1:p=03). p+y 或 x*y第 17 题程序填空(1 分)(题号 :58)-【程序填空】-功能：求 A,B,C 三个数的最大值。-Private Sub Command1_Click()

13、A = Val(Text1.Text)*SPACE*【?】C = Val(Text3.Text)If A B And A C ThenMAXDATE = A*SPACE*ElseIf 【?】 ThenMAXDATE = BElse*SPACE*【?】End IfLabel1.Caption = MAXDATE Next j*SPACE*For k = 5 To 【?】Print “*“;Next kPrintNext iFor i = 0 To 3For j = 0 To 2 * i + 2*SPACE*【?】Next jFor k = 0 To 4 - 2 * iPrint “*“;Next

14、 k*SPACE*【?】Next iEnd Sub答案：1). 2*i-1Step-12). Print “ “; 或 ? “ “;3). Print 或 ?第 21 题程序填空(1 分)(题号 :595)-【程序填空】-功能：窗体上建立了一个文本框 Text1(“输入口令“)和一个命令按钮 Command1(“检查“)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8，密码显示字符为“*”-dim x as stringPrivate Sub Command1_Click()x = Text1.Text*SPACE*If x 【?】 “12345678“ Then M

15、sgBox (“欢迎你用机!“)ElseMsgBox (“对不起，口令错“)End IfText1.Text = “Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = “*SPACE*Text1.【?】 = 8 *SPACE*Text1.【?】 = “*“ End Sub答案：1). =2). MaxLength3). PasswordChar第 22 题程序填空(1 分)(题号 :38)-【程序填空】-功能：下面的程序段，用于实现在一个nXm 的矩阵中，找出值最 大的元素所在的行和列，并输出其值及行号和列号。-Private Su

16、b Form_Click()Dim mat() As IntegerDim n as integer, m As Integern = Val(InputBox(“请输入矩阵的行数 “)m = Val(InputBox(“请输入矩阵的列数“)*SPACE*【?】For i = 1 To nFor j = 1 To mmat(i, j) = InputBox(“请输入数组元素值“)mat(i, j) = Val(mat(i, j)Next jNext iPrint “所建立的矩阵为“For i = 1 To nFor j = 1 To mPrint mat(i, j);Next jPrintNe

17、xt iMax = mat(1, 1)For i = 1 To nFor j = 1 To m*SPACE*If 【?】 ThenMax = mat(i, j)col = j*SPACE*【?】End IfNext jNext iPrintPrint “矩阵最大的元素的值为：“; mat(row, col)Print “它所在的行号为：“; row; “列号为：“; colEnd Sub答案：1). ReDim mat(n, m) As Integer 或 ReDim mat(n, m)2). Max Max3). row = I第 23 题程序填空(2 分)(题号 :45)-【程序填空】-功

18、能：下面的程序段用于求矩阵相乘C=AB，设 A、B、C 分别为 mp、pn、mn 的矩阵。-Private Sub Form_Click()Const m = 4, p = 3, n = 2Dim a(1 To m, 1 To p) As IntegerDim b(1 To p, 1 To n) As IntegerDim c(1 To m, 1 To n) As IntegerDim i As Integer, j As Integer, k As Integer, sum As IntegerFor i = 1 To mFor k = 1 To pa(i, k) = iNext kNext

19、 iFor i = 1 To pFor k = 1 To nb(i, k) = iNext kNext iFor i = 1 To mFor j = 1 To n*SPACE*【?】For k = 1 To p*SPACE*sum = sum +【? 】Next k*SPACE*c(i, j) =【? 】Next j, iPrint “输出矩阵“For i = 1 To mFor k = 1 To nPrint c(i, k),Next kPrintNext iEnd Sub答案：1). sum = 02). a(i, k) * b(k, j)3). sum第 24 题程序填空(2 分)(题号

20、 :52)-【程序填空】-功能：下面的程序段用于打印出以下图形 * * * * * * *-Private Sub Form_Click()Dim i%, j%, k%For i = 0 To 3For j = 0 To 2 - iPrint “ “;Next j*SPACE*For k = 1 To 【?】Print “*“;Next kPrintNext iFor i = 0 To 2For j = 0 To i*SPACE*【?】Next jFor k = 0 To 4 - 2 * iPrint “*“;Next k*SPACE*【?】Next iEnd Sub答案：1). 2 * i+

21、12). Print “ “; 或 form1.print “ “; 或 ? “ “;3). Print 或 form1.Print 或 ?第 25 题程序填空(2 分)(题号 :47)-【程序填空】-功能：以下程序段用于实现：输入两个正整数 m 和 n，求其最大 公因数和最小公倍数。-Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox(“请输入一个正整数“)num2 = InputBox(“请输入一个正整数“)*SPACE*If 【?】 Thentemp = num1: num1 = num2: num2

22、 = tempEnd Ifa = num1b = num2*SPACE*Do While 【?】temp = a Mod ba = b*SPACE*【?】LoopPrint “最大公因数为：“; aPrint “最小公倍数为：“; num1 * num2 / aEnd Sub答案：1). num1 num12). b 0 或 0 0 或 temp0 或 0 x*SPACE*【?】i = i - 1Loop*SPACE*If i 0 Then 【? 】For i = 1 To 9Print a(i);Next iEnd Sub答案：1). a(0) = x2). a(i + 1) = a(i)

23、或 a(1+i) = a(i)3). a(i + 1) = x 或 a(1 + i) = x第 7 题程序填空(1 分)(题号 :57)-【程序填空】-功能：求 1!+2!+10!的值。-Private Sub Form_Click()*SPACE*【?】s = 1For I = 2 To 10t = t * I*SPACE*【?】*SPACE*【?】Print sEnd Sub答案：1). t = 12). s = s + t3). Next I 或 Next第2题程序填空(2分)(题号:514)-【程序填空】-功能：本程序求3100之间的所有素数（质数）并统计个数； 同时将这些素数从小到大

24、依次写入顺序文件 dataout.txt； 素数的个数显示在窗体Form1上。-Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim t1 As Integer, t2 As Integer*SPACE*Open App.Path countClose #1End Sub答案：1). #12). True3). count + 1 或 1 + count第3题程序填空(2分)(题号:525)-【程序填空】-功能：在窗体上画一个标签（名称为 Label1 ）和一个 计时器（名称为 Timer1 ），然后编写如下几

25、个事件过程： 要求：每一秒钟Label1更新显示一次系统时间-Private Sub Form_Load()Timer1.Enabled = False*SPACE*Timer1.Interval = 【?】End SubPrivate Sub Form_Click()*SPACE*Timer1.Enabled = 【?】 End SubPrivate Sub Timer1_Timer()*SPACE*Label1.Caption = 【?】 End Sub答案：1). 10002). True3). Now 或 Time 或 Now() 或 Time()第4题程序填空(2分)(题号:534)

26、-【程序填空】-功能：在窗体上有两个列表框List1(处理前数据)和List2(处理 后数据)，以及标签Label1。程序功能为：随机生成100个 0-20（不包括0和20）的随机数填入List1，并将这些随机 数中的零元素删除，填入List2中。最后在Label1中显示零 元素个数-Private Sub Form_Load()Dim n As IntegerDim i, x, k As IntegerDim a(100) As Integer, b(100) As IntegerRandomizen = 100*SPACE*For i = 1 To 【?】 *SPACE*x = Int(2

27、0 * 【?】) List1.AddItem xa(i) = xNext ik = 0For i = 1 To n 删除零元素If a(i) = n 或 n “cmdRight.Enabled = TruecmdLeft.Caption = “ CY Then Limit = CY Else 【?】 *SPACE*For Radius = 0 To 【?】 Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)Next RadiusEnd Sub答案：1). Picture1.ScaleWidth / 22). Limit = CX3). Limit