大学vb课程题库全集(6)

n = 1: countn = 0 Do

n = n + 1

If [ n mod 3=1 And n mod 5=1 And n mod 7=1 ]Then Print n

countn = countn + 1 End If

Loop [ until count n=5 ] End Sub

――――――――――――――

9、下面程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框输入表达式，

边输入，边统计，以输入回车键作为表达式输入结束，然后显示结果。 Dim count1%

Private Sub Text1_KeyPress(KeyAscii As Integer) If [ chr(keyAscii) ] = \ count1 = count1 + 1

ElseIf Chr(KeyAscii) = \ [ count1=count1+1 ] End If

If KeyAscii = 13 Then If count1 = 0 Then

Print \左右括号配对\ ElseIf count1 > 0 Then

Print \左括号多于右括号\个\ Else

Print \右括号多于左括号\个\ End If End If End Sub

――――――――――――

10、顺序文件的建立。建立文件名为“c:\\stud1.txt”的顺序文件，内容来自文本框，

每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。 Private Sub Form_Load()

Open “c:\\stud1.txt” For Output As #1 Text1.Text=“” End Sub

Private Sub Text1_KeyPress(keyAscii As Integer) If keyAscii=13 Then

If[ Ucase(Text1)=\ ] Then Close #1 End Else

[Print #1,Text1 ]

Text1.Text=“” End If End If End Sub

―――――――――――――

11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结果。其中，CountY中放元音字母个数，CountC中放其他字符数。 Private Sub Command1_Click() Dim CountY%, CountC%, i% Dim C$, B$ c=Text1.Text

For i = 1 To Len(C)

B =UCase(Mid(C, i, 1))

If [ \ ] Then Select Case B

Case \ CountY = CountY + 1 Case [ Else ]

CountC = CountC + 1 End Select End If Next i

Print \元音字母有\个\ Print \其它字母有\个\End Sub

―――――――― 12、将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句 将old.dat文件从磁盘上删除。 Private Sub Command1_Click() Dim str1 $

Open “c:\\old.dat” For Input As #1 Open “c:\\new.dat” [For output As #2 ] Do While[ Not EoF(1) ] Line Input #1,str1 Print #2,str1 Loop

Close #1,#2

KILL “c:\\old.dat” End Sub

―――――――――

6

13、产生[10，37]之间的随机整数的Visual Basic表达式是[]。 判断s字符变量是大写字母字符的逻辑表达式为[=\。 表示x是5的倍数或9的倍数的逻辑表达式是[]

Len(\程序设计\的值是[<6>]。

表示字符变量s是字母字符（不区分大小写）的VB表达式是[=\And Lcase(s)<=\或者Ucase(s)>=\。

将一个两位数x的个位数与十位数交换位置，组成另一个两位数，则对应的表达式是[<(x Mod 10)+x\\10>]。 随机产生一个“C”～“L”范围内的大写字符，则对应的VB表达式是[]。 Round(-3.5)的值是[<-4>]。 Int(3.5)的值是[<3>]。

下面程序段运行后的输出结果是[<2 20 3 21 4 22 5 23>]。 For i = 0 To 3

Print Tab(5 * i + 1); \Next i

循环语句For i=-3 to 20 Step 0 的循环次数是[<无数次>]。

在过程中定义的局部变量，如果希望过程结束后还保存变量的值，则应使用[]关键字进行声明。

由Array函数建立的数组，其变量必须是[]。

要使循环语句循环执行20次，For k=____ to -5 Step -2，则k=[<33>]。 循环语句For i=-3.5 to 5.5 Step 0.5的循环次数是[<19>]。 下列程序段中，第41句共执行了[<12>]次。 30 For j = 1 To 12 Step 3

40 For k = 6 To 2 Step -2 41 Print j, k 42 Next k 43 Next j

循环语句For i=-3 to 20 Step 4的循环次数是[<6>]。 下面程序运行后的输出结果是[<**$$$****$$$$$>]。 a = \For i = 1 To 4

If i Mod 2 = 0 Then

x$ = String(Len(a) + i, b) Else

x$ = String(Len(a) + i, a) End If Print x$; Next i

下面程序的运行结果是[<22 484>]。 x = 242: y = 44 z = x * y

Do Until nx = y

If x > y Then x = x - y Else y = y - x Loop

Print x, z / x

下列程序段中，第40句共执行了[<4>]次。 30 For j = 1 To 12 Step 3

40 For k = 6 To 2 Step -2 41 Print j, k 42 Next k 43 Next j

如果在建立菜单时在标题文本框中输入一个[<下划线或者“_”>],那么菜单显示时形成一个分隔线

如果菜单标题的某个字母前输入一个[<&>]符号，那么该字母就成了热键字母。 []方法可以清除列表框中的所有内容。

列表框中的[]和Selected两个属性均为数组。

[