当前位置:文档之家 > 程序填空(Option_Explicit)

程序填空(Option_Explicit)

1.Option Explicit'题目:窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。

判断密码是否正确,并显示相应提示;在加载窗体时设置密码框最大长度为8,密码显示字符为“*”Private Sub Command1_Click()

x = Text1.Text

If x【??】"12345678" Then(like 和=,不定)

MsgBox ("欢迎你用机!")

Else

MsgBox ("对不起,口令错")

End If

Text1.Text = ""

Text1.SetFocus

End Sub

---------------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()

Text1.Text = ""

Text1.【??】=8 (maxlength)

Text1.【??】="*" (passwordchar)

End Sub

2.'题目:以下程序的功能如(图1)。

Private Sub Form_Click()

Dim a%, b%, c%, d!

Dim x1, x2

Dim p, q, r

a = InputBox("请输入a的值")

b = InputBox("请输入b的值")

c = InputBox("请输入c的值")

d = b * b - 4 * a * c

p = -b / (2 * a)

If d >= 0 Then

If 【??】Then (d>0)

r = Sqr(d) / (2 * a)

x1 = p + r

x2 = p - r

Else

x1 = p

x2 = p

【??】(end if)

Print "x1="; x1, "x2="; x2

【??】(else)

q = Sqr(-d) / (2 * a)

Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"

End If

End Sub

3.'下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。

Private Sub Form_Click()

Print "5个数34、124、68、73、352的最大值是:"

max1 = max(34, 124, 68)

max1 = max(【?】) (max1, 73, 352)

Print max1

End Sub

Public Function max(ByVal a%, ByVal b%, ByVal c%)

If a > b Then

m = 【?】(a)

Else

m = b

End If

If m 【??】Then (> c)

max =
m

max = m

Else

max = c

End If

End Function

4.'下面的程序段用于求矩阵相乘C=A×B,设A、B、C分别为m×p、p×n、m×n的矩阵。

Private Sub Form_Click()

Const m = 4, p = 3, n = 2

Dim a(1 To m, 1 To p) As Integer

Dim b(1 To p, 1 To n) As Integer

Dim c(1 To m, 1 To n) As Integer

Dim i As Integer, j As Integer, k As Integer, sum As Integer

For i = 1 To m

For k = 1 To p

a(i, k) = i

Next k

Next i

For i = 1 To p

For k = 1 To n

下载Word文档免费下载:

程序填空(Option_Explicit)下载

(共22页)

江苏计算机二级VB 填空题

江苏计算机二级VB 填空题 - 填空题 1 1. 执行下面程序,单击命令按钮 Command1,则窗体上显示的第一行是 后一行是 (2) 。 Option Explicit Option Bas...

2018电大动态网页形考答案

应用程序或脚本对 2.填空题】Recordset 中的记录指针具有游标类型,他的默认值为...在 ASP 文件所有 ASP 语句之前添加(Option Explicit) 4.Application 对象的默认...

vb江苏省计算机二级VB考试真题及参考答案

填空题 ,’ 1.执行下面的程序,单击 Commandl,则窗体上显示的第一行是 ( 1 ...( 3 ) Option Explicit Private Sub Command1_Click() Dim X As Integer,Y...