VB题库 (1)

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求100以内偶数的和，并将结果输出在窗体上。' 将结果存入变量SUM中

'-------------------------------------------------

【参考代码】

Dim i As Integer

For i = 1 To 100

If i Mod 2 = 0 Then

sum = sum + i

End If

Next

Print sum

===============

【考生代码】

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。' 结果存入变量L中。

'-------------------------------------------------

【参考代码】

Dim i As Integer

Dim s As Long

Dim j As Integer

s = 1

For i = 1 To 10

s = s * i

l = l + s

Next

Print Str(l)

===============

【考生代码】

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程

' fact实现

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Dim i As Integer, s As Long

'**********ERROR**********

For i = 2 To 8

s = s + fact(i)

Next i

Print s

End Sub

'**********ERROR**********

Public Function fact()

Dim t As Long

Dim i As Integer

t = 1

For i = 1 To n

t = t * i

Next i

'**********ERROR**********

fact = i

End Function

【改错1】错误

【学生答案】

For i = 2 To 8

【参考答案】

For i=2 To 8 Step 2

============================================================

【改错2】错误

【学生答案】

Public Function fact()

【参考答案】

Public Function fact(ByVal n As Integer)

Public Function fact(n As Integer)

Public Function fact(n%)

Public Function fact(n)

Public Function fact(ByVal n%)

Public Function fact(ByVal n)

============================================================

【改错3】错误

【学生答案】

fact = i

【参考答案】

fact = t

============================================================

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：下面程序将10个整数从大到小排序

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Dim t%, m%, n%, w%

Dim a(10) As Integer

For m = 1 To 10

a(m) = Int(10 + Rnd() * 90)

Print a(m); " ";

Next m

Print

For m = 1 To 9

t = m

'**********ERROR**********

For n = 2 To 10

'**********ERROR**********

If a(t) > a(n) Then n = t

Next n

'**********ERROR**********

If t = m Then

w = a(m)

a(m) = a(t)

a(t) = w

End If

Next m

For m = 1 To 10

Print a(m)

Next m

End Sub

【改错1】错误

【学生答案】

For n = 2 To 10

【参考答案】

For n=m+1 To 10

============================================================

【改错2】错误

【学生答案】

If a(t) > a(n) Then n = t

【参考答案】

If a(t) < a(n) Then t=n

If a(n)>a(t) Then t=n

============================================================

【改错3】错误

【学生答案】

If t = m Then

【参考答案】

If t<>m Then

If not t=m Then

If not m=t then

============================================================

编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，

如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。

要使用的转换公式是：

其中F为华氏，C摄氏。要求用按钮实现转换。

图1

图2

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Caption=摄氏转华氏

学生答案：Caption=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Caption=华氏转摄氏

学生答案：Caption=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,bel_

标准答案：Caption=摄氏温度

学生答案：Caption=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,bel_

标准答案：Caption=华氏温度

学生答案：Caption=

【事件评分】错误

【事件】Private Sub Command2_Click()

标准答案： Text1

Text2

Text

*

9

/

5

32

学生答案：

【事件评分】错误

【事件】Private Sub Command1_Click()

标准答案： Text2

Text1

32

5

/

9

*

学生答案：

在窗体上添加1个标签、1个文本框和3个命令按钮，并在属性窗口设置控件相关的属性，使得程序运行时

在文本框中输入一串字符，对字号进行放大和缩小，缩放比例由随机函数产生。见图2、图3、图4所示。

要求：

1、文本框设置为多行、带垂直滚动条；

2、为使每次运行时产生不同的随机数，窗体Load事件中执行Randomize语句；

3、单击"放大"按钮，字体放大，放大的倍数由随机函数产生：Int(Rnd*3+1)，

4、单击"缩小"按钮，字体缩小，缩小的倍数由随机函数产生：Int(Rnd*3+1)；

5、为了防止程序运行错误（字体过大或过小），不应连续放大和缩小，即：

单击一次"放大"按钮后，"放大"按钮为不可用状态，同时"缩小"按钮可用；

单击一次"缩小"按钮后，"缩小"按钮为不可用状态，同时"放大"按钮可用；6、单击"还原"按钮，字体恢复原始状态，"放大"和"缩小"按钮都变成可用状态。

【提示】为了实现"还原"功能，必须在Form_Load()事件中获得FontSize的值, 并在通用声明段声明为窗体级变量。

Dim zihao As Integer

Private Sub Form_Load()

zihao = Text1.FontSize

End Sub

图1

图2

图3

图4

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Name=Command3

学生答案：Name=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Caption=还原

学生答案：Caption=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Name=Command2

学生答案：Name=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Caption=缩小

学生答案：Caption=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Name=Command1

学生答案：Name=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,mandButton_

标准答案：Caption=放大

学生答案：Caption=

【控件属性评分】错误

【控件】VB.TextBox_

标准答案：MultiLine=-1 'True

学生答案：MultiLine=

【控件属性评分】错误

【控件】VB.TextBox_

标准答案：ScrollBars=2 'Vertical

学生答案：ScrollBars=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,bel_

标准答案：Name=Label1

学生答案：Name=

【控件属性评分】错误

【控件】https://www.360docs.net/doc/fb15730548.html,bel_

标准答案：Caption=输入文字内容

学生答案：Caption=

【事件评分】错误

【事件】Private Sub Command1_Click()

标准答案： Text1.FontSize

*

Int(Rnd * 3 + 1)

Command1.Enabled = False

Command2.Enabled = True

学生答案：

【事件评分】错误

【事件】Private Sub Command2_Click()

标准答案： Text1.FontSize

/

Int(Rnd * 3 + 1)

Command2.Enabled = False

Command1.Enabled = True

学生答案：

【事件评分】错误

【事件】Private Sub Command3_Click()

标准答案： Text1.FontSize = zihao Command1.Enabled = True

Command2.Enabled = True

学生答案：

【事件评分】错误

【事件】Private Sub Form_Load()

标准答案： zihao = Text1.FontSize Randomize

学生答案：