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

题型：综合题题类：常考题难易度：困难

浙江省温州市十校联合体2017届高三上学期期末考试技术试题（信息技术部分）

编写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

① ② ③

举一反三

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To {#blank#}1{#/blank#}

j = Asc(Mid(ch, i, 1))

If j > 96 And j < 123 Then

s = s + Chr(j - 32)

Else

s = s + Chr(j)

End If

{#blank#}2{#/blank#}

End Sub

用VB编写一个字符串分行程序，功能如下：单击“分行”按钮Command1将文本框Text1中的英文文本在列表框List1中分行显示（分行时单词不得跨行，每行字符尽可能多但不超过40个）并在标签Label1中输出总行数，运行效果如图所示。分行算法如下：

⑴将文本框中的字符串保存到变量s中；

⑵当s中字符个数超过40时，循环执行下列①、②、③步，否则跳转到（3）：

①如果第41个字符不是英文字母，则分行位置p = 40;否则，向左逐个查找，直至找到第一个非英文字母，将其位置作为分行位置p;

②截取s的前p个字符，作为新增行显示在列表框List1中，同时总行数加1 ;

③将s中未分行部分重新赋值给变量s。

⑶将s作为新增行显示在列表框List1中，同时总行数加1。

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Commandl_Click()

Dim s As String，c As String

Dim r As Integer, total As Integer，p As Integer

total = 0

s ={#blank#}1{#/blank#}

Do While Len(s) > 40

r = 41

c = Mid(s，r，1)

If Not((c>= "a"And c<="z" ) Or (c>="A"Andc<="Z")) Then

p = 40

Else

’从第41个字符幵始向左找到第1个非英文字母，并将其位置值赋给p

Do While (c >= "a" And c <= "z") Or (c >= "A"

And c <= "Z")

r ={#blank#}2{#/blank#}

c = Mid(s，r，1)

Loop

p = r

End If

List1. Addltem Mid(s，1，p)

total = total + 1

s ={#blank#}3{#/blank#}

Loop

List1. AddItem s

total = total + 1

Labell. Caption ="共"+ Str(total) + "行"

End Sub

修改对象属性的语句格式如何？

编写VB程序，实现如下功能：在文本框Te1中输入投资金额，Te2中输入投资的目标金额，Te3中输入投资的年收益率，单击按钮Com，在文本框Te4中输出达成预期投资目标至少需要的年数。投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×(1+5%），2年后的本息为10000×(1+5%）²。程序运行界面如图所示。

编写 VB 程序代码，实现如下功能：在文本框 Text1 中输入金额(整数)后，点击“转换”按钮Command1，则在文本框 Text2 中显示该金额的大写，程序运行界面如下图所示:

请在横线处填写正确的代码

求解如下分段函数的值。

y＝

x=float（input（"请输入x的值："））

if {#blank#}1{#/blank#}:

y＝－2*x－4

{#blank#}2{#/blank#}x＜10：

y＝（x＋2）**0.5

else:

y＝2**（x-1）

print({#blank#}3{#/blank#})

相关试卷

公司介绍

服务介绍

帮助中心