vb模拟考试源代码（vb上机考试的编程题）

今天给各位分享vb模拟考试源代码的知识，其中也会对vb上机考试的编程题进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、求几道VB题的源代码
• 2、急求VB打字练习源代码
• 3、高中VB编程的一些源代码

求几道VB题的源代码

第一道题：

Public Function s(n%) As Variant

s = 1

For i = 1 To n

s = s * i

Next i

End Function

Private Sub Form_Load()

Print s(3) + s(5) + s(7)

End Sub

第三道题：

Private Sub Command1_Click()

a = CSng(InputBox("请输入二次项系数"))

b = CSng(InputBox("请输入一次项系数"))

c = CSng(InputBox("请输入常数项"))

Print result(a, b, c)

End Sub

Public Function result(ByVal a As Single, ByVal b As Single, ByVal c As Single) As String

If b ^ 2 - 4 * a * c 0 Then

X1 = ((-1) * b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)

X2 = ((-1) * b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)

result = "x1=" CStr(X1) Chr(9) "x2=" X2

Else

x = (-1) * b / (2 * a)

If b ^ 2 = 4 * a * c Then

result = "x=" CStr(x)

Else

y = (4 * a * c - b ^ 2) ^ 0.5

result = "x1=" CStr(x) "+" CStr(y) "i" Chr(9) "x2=" CStr(x) "-" CStr(y) "i"

End If

End If

End Function

呵呵……剩下两道你自己编一下吧！顺便练练，其实都是一个意思！

急求VB打字练习源代码

Option Explicit

Dim score As Integer

Dim speed As Integer

Dim typetime As String

'初始化字符1

Sub innt1()

'产生随机大写字母、数字及其他符号

zi1.Caption = Chr(Int(Rnd * 43 + 48))

'起初位置

zi1.Left = Int(Rnd * (mm1.Width - zi1.Width))

zi1.Top = mm1.Top - zi1.Height

End Sub

'初始化字符2

Sub innt2()

'产生随机小写字母

zi2.Caption = Chr(Int(Rnd * 26) + 97)

'起初位置

zi2.Left = Int(Rnd * (mm1.Width - zi2.Width))

zi2.Top = mm1.Top - zi2.Height

End Sub

'开始

Private Sub Command1_Click()

'输入时间

typetime = InputBox("请输入打字时间（单位为秒）：", "设置时间")

If IsNumeric(typetime) Then

Label5.Caption = typetime

Else

Exit Sub

End If

'调用子过程

innt1

innt2

'设置默认的下落速度

HScroll1.Value = 50

'开始下落

Timer1.Enabled = True

Timer2.Enabled = True

Command1.Enabled = False

Label3.Caption = 0

'设置时间为2分钟

End Sub

'打字

Private Sub HScroll1_KeyPress(KeyAscii As Integer)

'若打中字符1

If Chr(KeyAscii) = zi1.Caption Then

'重新初始化

innt1

'分数累加

score = score + 1

'显示分数

Label3.Caption = score

End If

'若打中字符2

If Chr(KeyAscii) = zi2.Caption Then

innt2

score = score + 1

Label3.Caption = score

End If

End Sub

'初始化设置

Private Sub Form_Load()

Randomize

Timer1.Enabled = False

Timer2.Enabled = False

zi1.AutoSize = True

zi2.AutoSize = True

HScroll1.Max = 300

HScroll1.Min = 10

End Sub

'改变速度

Private Sub HScroll1_Change()

speed = HScroll1.Value

End Sub

'字符下落

Private Sub Timer1_Timer()

'字符1下落

zi1.Top = zi1.Top + speed

If zi1.Top mm1.Height Then

innt1

End If

'字符2下落

zi2.Top = zi2.Top + speed

If zi2.Top mm1.Height Then

innt2

End If

End Sub

'控制打字时间

Private Sub Timer2_Timer()

'减时

Label5.Caption = Val(Label5.Caption) - 1

'若时间到

If Val(Label5.Caption) = 0 Then

'停止字符下落

Timer1.Enabled = False

zi1.Caption = ""

zi2.Caption = ""

'分析分数

Select Case score

Case Is 60

MsgBox vbCrLf + "你真菜!努力吧!"

Case Is = 60

MsgBox vbCrLf + "恩~！还可以有进步!"

Case Is = 100

MsgBox vbCrLf + "哈```满分!"

Case Is 150

MsgBox vbCrLf + "好厉害啊`!"

End Select

Command1.Enabled = True

Timer1.Enabled = False

Timer2.Enabled = False

End If

End Sub

高中VB编程的一些源代码

uEnd是用户定义捕捉VB输出框(MsgBox)按下按钮事件一个变量.即你的原代码

MsgBox

"您确定要离开吗?",

vbYesNo

+

vbQuestion,

"离开程序"

执行按vbYes或vbNo按钮的结果参数值返回给程序以便执行下一代码.当然你不用这变量也能做到,但按钮需按两次:

Private

Sub

Command2_Click()

MsgBox

"您确定要离开吗?",

vbYesNo

+

vbQuestion,

"离开程序"

If

MsgBox("您确定要离开吗?",

vbYesNo

+

vbQuestion,

"离开程序")

=

vbYes

Then

End

End

If

End

Sub

uEnd

=

MsgBox("您确定要离开吗?",

vbYesNo

+

vbQuestion,

"离开程序")

上句代码实际上可看作VB输出框执行结果赋值于uEnd,

=

号在VB6.0中本身就应该看为赋值号.而且程序代码简洁明了,不易写错.

下面参考MSDN的有关MsgBox说明:

MsgBox

函数

在对话框中显示消息，等待用户单击按钮，并返回一个

Integer

告诉用户单击哪一个按钮。

MsgBox

函数示例

本示例使用

MsgBox

函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox

函数的返回值视用户按哪一个钮而定。本示例假设

DEMO.HLP

为一帮助文件，其中有一个内容代码为

1000。

Dim

Msg,

Style,

Title,

Help,

Ctxt,

Response,

MyString

Msg

=

"Do

you

want

to

continue

?"

'

定义信息。

Style

=

vbYesNo

+

vbCritical

+

vbDefaultButton2

'

定义按钮。

Title

=

"MsgBox

Demonstration"

'

定义标题。

Help

=

"DEMO.HLP"

'

定义帮助文件。

Ctxt

=

1000

'

定义标题

'

上下文。

'

显示信息。

Response

=

MsgBox(Msg,

Style,

Title,

Help,

Ctxt)

If

Response

=

vbYes

Then

'

用户按下“是”。

MyString

=

"Yes"

'

完成某操作。

Else

'

用户按下“否”。

MyString

=

"No"

'

完成某操作。

End

If

感谢你发的短消息!

该回答在由回答者修改过

关于vb模拟考试源代码和vb上机考试的编程题的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。