题型：综合题 题类：常考题 难易度：困难
浙江省湖州市练市中学2020-2021学年高二下学期信息技术第一次质量检测试卷
编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。
Private Sub Command1Click( )
Dim s1 As String, s2 As String, c As String, mw As String
Dim i As Integer
s1= Text1.Text
s2 = Mid（s1, 1, 1）
For i=2 To
c=Mid（s1, i, 1）
If c>="A" And c<= "Z" Then
IfThen s2 =s2 +c
Else
s2 =s2+c
End If
Next i
mw=“”
i=6
Do While i<= Len（s2）
mw = mw + Mid(s2, i, 1)
Loop
Text2. Text= s2
Label1. Caption =mw
End Sub
|
编号 |
1 |
2 |
3 |
4 |
5 |
|
生产时间 |
4 |
7 |
5 |
5 |
9 |
|
商品价值 |
10 |
16 |
12 |
10 |
15 |
若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。
编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮
