当前位置:文档之家 > 程序填空(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页)

新填空题1新 (3)

程序填空' '下面的程序实现:从键盘输入一个数字,将其插入一个有序数组中,插入...Option Explicit Private Sub Form_Click() Dim t%, m%, n%, w% Dim a...

江苏计算机二级VB 填空题

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

江苏省计算机二级2009年(春)笔试试卷及答案

请完善如下程序: Option Explicit Private Sub Command1_Click() Dim x As ...填空题 (1) 2 1 0 (2) 1 0 1 (3) 0 1 2 (4) 6 (5) 5 (6)...

江苏省计算机二级2008年(秋)笔试试卷及答案

请完善程序Option Explicit Private Sub Command1_Click() Dim n As ...填空题 (1) 2 (2) 7 (3) 16 15 14 13 (4) 3 6 (5) 4 7 (6)...

2007年(春)笔试试卷及答案

Option Explicit Private Sub Command1_Click() Dim X As Integer Cls X = ...程序设计一、选择题 21.B 22.B 26.A 27.A 二、填空题 (1) 1 (2) 0...

江苏省2008年(春)笔试试卷 及答案

请完善如下程序: Option Explicit Private Sub Form_Click() Dim x As Double...填空题 (1) 9 12 (2) 3 -3 (3) 0 -6 (4) DHL (5) NRV (6) ...