编写VB程序，实现如下功能：在文本框Text1中输入整数n（1≤n≤10），单击“生成矩阵”按钮Command1，生成n2个10到99之间（包含10和99）的随_刷题宝

题干

编写VB程序，实现如下功能：在文本框Text1中输入整数n（1≤n≤10），单击“生成矩阵”按钮Command1，生成n²个10到99之间（包含10和99）的随机整数，并以n行、n列矩阵的形式显示在列表框List1中，再单击“对角线”按钮Command2，则在标签Label1中输出该矩阵对角线（左上角到右下角）上的数值，运行界面如图所示，程序代码如下。
（1）要使文本框Text1上显示的默认文本由“8”改为“10”，可在其属性窗口中将________属性的属性值改为“10”。

（2）为了实现上述功能，请在划线处填入合适的代码。
Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1 To n ^ 2
a(i) =   ①
If i > 1 And i Mod n =" 1" Then
List1.AddItem line
line = Str(a(i))
Else
line = ②
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1 to    ③
Label1.Caption =" Label1.Caption" & Str(a(i + (i - 1) * n))
Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2017-02-17 10:24:05

答案(点此获取答案解析）

同类题1

如下图VB应用程序界面所示，下列关于类与对象的说法正确的是_______。

A．图中有５个对象，分别属于３个不同的类

B．图中计算1、Text1等字符为类的名称

C．图中有６个对象，分别属于４个不同的类

D．图中计算1、Text1等字符为对象的名称

同类题2

阶乘是一种累乘积的计算方法，用“!”来表示阶乘，n!=1×2×3×……×n。如：8!=1×2×3×…×8=40320。小王为了求10! 的值，编写了如下Visual Basic代码：

Private Sub Command1_Click()

Dim i As Integer, s As Integer ①

s = 0 ②

i = 1

Do While i < 10 ③

i = i + 1
s = s * i ④

Loop

End Sub

运行该程序，小王单击命令按钮Command1后，出现如第38题图对话框，已知序号①划线处的代码有错误，正确的代码应该是___________________________。经过代码修改后，小王重新运行该程序，单击命令按钮Command1，出现的结果是“0”，那么序号_____（填①/②/③/④）划线处的代码有错误，正确的代码应该是________________。

同类题3

小明利用VB编写了一个“质因数分解”的程序，程序的功能如下：在文本框Textl中输入一个大于1的正整数，单击“转化”按扭Command 1后，则在标签Label 2中显示该整数质因数分解公式。若输入的数为素数时，则直接输出该数；若输入的数小于等于1或为小数时，则显示出错信息。程序运行时界面如图所示：

实现该程序的代码如下：
Private Sub Command1_Click( )
Dim n As Double，m As Long，s As String
n = Val (Text1.Text)
If

Then
m=2
s=“”
Do While n > 1
If n Mod m = 0 Then
_________①__________
If s=“”Then
s=Str(m)
Else
s=s+“X” + Str(m)
_________②__________
Else
m=m+1
End If
Loop
Label 2.Caption = Text1.Text+“=”+s
Else
Text1.Text=“”
Label2.Caption“=你输入的数不在转化范围内，请重新输入!”
End If
End Sub
(1)在程序界面设计时，应使用控件工具箱中的___________(单选题填字母

)控件添加命令按钮Comand1，并将该对象的____________属性设置为“转化”。

(2)加框处的代码有误，应改为_____________________。
(3)划线①处应填入代码___________________________。
(4)划线②处应填入代码___________________________。
(5)若在文本框中输入的内容为53，则标签Label2中显示的内容为_______________。

同类题4

某客运公司为了合理地安排汽车运输，每年每月都会对汽车站的客运量进行统计，并保存到数据库。新的一年即将来临，客运公司准备制订明年的汽车排班计划。设计程序，从数据库中读取上一年的月客运量，并找出最大、最小月份，代码如下：
Dim a(1 To 12) As Integer
Private Sub Form_Load()
　’本过程从数据库中读取上一年月客流量，并存储在数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim max As Integer, min As Integer
Dim yx As Integer, yn As Integer
max = a(1)
min = a(1)
yx = 1
yn = 12 ……………………①
For i = 2 To 12
　If a(i) >= max Then
　　max = a(i)
　　yx = i
　End If
　If a(i) <a（1） Then ………………②
　　min = a(i)
　　yn = i
　End If
Next i
Label1.Caption =“客流量最大在第” + Str(yx) +“月，共” + Str(max) +“人，客流量最小在第” + Str(yn) +“月，共：” + Str(min) +“人”
End Sub
该程序①、②处有错误，请在画线处填写正确代码。
①_____________________②_____________________

同类题5

能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。

A．a<="1" 或a>=5

C．a<="1" or a>=5

D．a<="1" and a>=5

相关知识点