急求大学课程VB6.0试题库！！特别是关于如何编写程序代码的试题

1、如下程序

Private x As Integer

Private Sub Command1_C1ick()

Static y As Integer

Dim z As Integer

n=10

z=n+z

y=y+z

x=x+z

Label1Caption=x

Label2Caption=y

Label3Caption=z

End Sub

（1）运行程序，连续三次单击命令按钮后，则三个标签中显示的内

容分别是（ ）

（A）10 10 10 （B）30 30 30 （C）30 30 10 （D）10 30 30

（2）将Static y As Integer改为Dim y as Integer,则三个标签中

显示的内容为（ ）

（A）10 10 10 （B）30 30 30 （C）30 10 10 （D）10 30 30

（3）程序中使用了几个控件（ ）

（A）1 （B）2 （C）3 （D）4

2、Private Sub Form_Click ( )

Dim title%

title = Val(InputBox (＂请输入一个数＂))

fee = Count1(title)

Print fee

Print title

End Sub

Function Count1(title%) as integer

If title < 40 Then

title = title / 2

Else

title = 2 title

End If

Count1 = title

End Function

（1）运行时从键盘输入20，输出时fee的结果是 （ ）

（A）10 （B）20 （C）30 （D）显示出错信息

（2）保持键盘输入不变的情况下，将Function Count1(title)改为Function Count1(ByVal title),输出时title的结果是 （ ）

（A）10 （B）20 （C）30 （D）显示出错信息

（3）Count1的类型是 （ ）

（A）Integer （B）Long （C）Variant （D）Boolean

3、Private Sub Command1_Click ( )

Dim n as Integer

n = 12

ReDim a(n)

a = Array (45,2,7,1,13,42,98,0,65,33,0,0)

call fun(a(),n)

Print a(9)

End Sub

Sub fun(a(),n as Integer)

mx = 1

mn = 1

Print UBound(a)

For k = 2 To n-2

If a(k) > a(mx) Then mn =k

If a(k) < a(mn) Then mn = k

Next k

Print mn

a(n-1) = a(mx)

a(n-2) = a(mn)

End Sub

（1）语句Print UBound(a)的结果是（ ）

（A）13 （B）12 （C）11 （D）0

（2）程序运行后a(9)的结果为（ ）

（A）0 （B）33 （C）65 （D）程序出错

（3）程序运行后mn的值为（ ）

（A）12 （B）11 （C）10 （D）9

4、 Dim x0%, y0%

Private Sub picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

If Button = 1 Then

x0 = X: y0 = Y

ElseIf Button = 2 Then

x0 = 0: y0 = 0

ElseIf Button = 4 Then

Cls

End If

End Sub

Private Sub picture1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)

If Button = 1 Then

rad = Rnd 2

picture1PSet(x0,y0)

picture1Circle(x0,y0), Sqr((x0 - X)^2 + (y0 - Y)^2), , , , rad

ElseIf Button = 2 Then

picture1Line(x0, y0) - (X, Y), , B

End If

End Sub

(1)程序执行时，在picture1上按下鼠标左键，然后移动一定距离后释放，则（ ）

(A)将清除picture1上的所有图形和文字

(B)将画出一个以鼠标按下点为圆心的椭圆

(C)将画出一个以鼠标按下点为圆心，鼠标按下点到释放点间距离为半径的圆

(D) 将画出一个以鼠标按下点为圆心的扇形

(2)程序执行时，在picture1上单击鼠标右键，则( )

(A)将画出一个以点（0，0）到点（x，y）的直线为对角线的空心矩形

(B)将画出一个以点（0，0）到点（x，y）的直线为对角线的实心矩形

(C) 将画出一条自（0，0）点到鼠标释放点（x，y）的直线

(D) 将清除窗体上的所有图形和文字

(3)程序执行时，在窗体上单击鼠标中键，则( )

(A) 将清除picture1上的所有图形和文字

(B) 将清除窗体上的所有图形和文字

(C) 窗体无变化

(D) 将出现黑屏

5、在D盘有一个名叫testtxt的文件，内容为“Visual basic is easy”

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim strs$, i%, j%, n%, stra$, strb$, count%, t$, strt$()

Open "d:\testtxt" For Input As #1

ReDim strt(LOF(1))

Do While Not EOF(1)

n = n + 1

Input #1, strt(n)

Loop

For i = 1 To n

strs = strs & strt(i)

Next i

For i = 1 To Len(strs)

stra = Mid(strs, i, 1)

strb = Mid(strs, i + 1, 1)

If stra = "s" Then

If strb >= "a" And strb <= "z" Then

count = count + 1

strt(count) = strb + stra

End If

End If

Next i

For i = 1 To count

For j = i To count - i

If strt(j) > strt(j + 1) Then

t = strt(j): strt(j) = strt(j + 1): strt(j + 1) = t

End If

Next j

Next i

For i = 1 To count

Print strt(i)

Next i

Close #1

End Sub

（1）option explicit的作用为（ ）

（A）表明此模块内变量必须先声明后使用

（B）表明此模块没有通用过程

（C）表明此模块的通用过程不能被其他模块调用

（D）表明此模块变量不声明可以直接使用

（2）程序运行后stra的值为（ ）

（A）e （B）a （C）s （D）y

（3）程序运行后count的值应为（ 39 ）

（A）0 （B）3 （C）4 （D）2

（4）窗体上显示的结果为（ 40 ）

（A）is us ys （B）ys us is （C）is is as （D）as ys is

VB考这些数学题干什么？现在的教育都在误导学生！！！VB应该是用来帮助我们学习的，不是研究什么是素数什么是乘除来乘除去的！无语了！每个学生都要研究这些吗？

答案也很简单，以下代码都是在Command1_Click()中执行。

1我这个代码应该是你们要的结果，其实代码可以优化的更好玩（暂时不说）。

n = 0

for i = 100 to 666

a = Int(n / 100) '获得百位数，以下分别是获得十位数个位数

b = Int(Int(n / 10) Mod 10)

c = n Mod 100 Mod 10

if (a+b) Mod 10 = c then

print i '这里是在窗体print，具体如何显示结果你看你的试题要求喽。

end if

For j = 2 To Sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j > Sqr(i) Then

'是素数,就累加

n=n+1

End If

next i

print n

2

for i = 10 to 500 step 2

n = n +1

next i

print n

3写到这里有点print烦了，什么题目啊，无聊至极

for i = 200 to 1000

if i mod 3 = 0 and i mod 5=0 then

n = n+i

end if

next i

print n

4算了，这分我拿不下了。太累

D

D

对于指针，sizeof *** 作符返回这个指针占的空间。

strlen不区分是数组还是指针，就读到\0为止返回长度。

错错对错错

错错错错

第6题判断解释一下：

#define MY(x,y) xy

由于没有用括号进行x,y原子性的确保，则MY(2+3,5）为 2+35 = 17

以上就是关于急求大学课程VB6.0试题库！！特别是关于如何编写程序代码的试题全部的内容，包括:急求大学课程VB6.0试题库！！特别是关于如何编写程序代码的试题、VB程序设计 , 期末考试题库 .求最后答案，回答几个是几个吧，但是不要乱给答案，谢谢。、C语言程序设计，计算机2级试题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！