有哪些信誉好的足球投注网站- 1、本文档共52页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB程序填空(OptionExplicit)1.
1.Option Explicit题目：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*”
Private Sub Command1_Click()
x = Text1.Text
If x 【？ ？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 (d0)
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
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
b(i, k) = i
Next k
Next i
For i = 1 To m
For
文档评论（0）