Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As Long
s = 1
i =
If i >= 1 And i <= 9 Then
For j = 1 To i
s =
Next j
Label2.Caption = Str(i) & "的阶乘为:" & Str(s)
Else
Label2.Caption = "请重新输入1~ 9之间的任意数字"
End If
End Sub
|
a(1) |
a(2) |
a(3) |
… |
a(n-2) |
a(n-1) |
a(n) |
|
3 |
25 |
38 |
… |
55 |
31 |
12 |
依据对分查找思想,设计一个在数组a中查找数据key的程序,实现该功能的VB程序如下,但加框处代码有错,请改正
Private Sub Command1_Click( )
Const n = 6
Dim a (1 To n) As Integer, flag As Boolean
Dim i As Integer, j As Integer, m As Integer, key As Integer
‘读取一组正整数,按上述规则存入数组a中
‘代码略
key = Val(Text1. Text)
i = 1
j = (n+1) \2
flag= False
Do
While
And Not flag ‘①
m = (i+j) \2
If key = a(m) Then
flag= True
ElseIf key < a(m) Then
j = m-1
Else
i = m+1
Loop
If Not flag And j > 0 Then
m =
‘②
If key = a(m) Then flag = True
End If
If flag Then
Text2.ext = str(m)
Else
Text2.Text= “找不到”
End if
End sub
①加框处应改为。
②加框处应改为。
1图
2图
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ②
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
Loop
End Sub
A.i <= t2 B.f <= t2 C.t1 > t2 D. i < f
① ②
Randomize
For i=1 To 6
a(i) = Int(Rnd*21) *2+11
If I Mod 2=1 Then
a(i) = a(i) +2
Else
If a(i)<a(i-1)Then a(i)=a(i-1)
End If
Next i
a=5
b=10
c=a
a=b
b=c
实现功能:从键盘输入10个学生的测试成绩,输出最高分和最低分。
cj=[]
for i in range(0,):
x=float(input("请输入一个数"))
cj.append()
print(max(cj), min())
input("运行完毕,请按回车键退出...")
所谓“同选”是指学生在3门课的选择中最喜欢一起选的两门课,比如A同学选了124,B同学选了134,则同选最多的两门课为14。请回答以下问题:
course=["排球","篮球","足球","羽毛球","乒乓球","网球","健身操","游泳","太极"]
xk=[] #存储选课信息,用数字1~9表示9门课程
f=[0]*9 #存储9门课程的选课人数
d=[0]*100 #存储两门课程同选的次数,如d[26]=50表示篮球和网球被50个同学同选
def relation(y): #计算列表y中各数据项的同选次数
for i in range(1,10):
for j in range(i+1,10):
if str(i) in y and str(j) in y: #课程i,j均在列表y中出现
d[10*i+j]+=1 #第i和第j门课程同选次数加1存储在列表d中
file=open("xk.txt","r") #打开文件
line=file.readline()
while line: #读取文件数据到列表xk中,数据样式详见第(1)小题图所示
line=line.split()
xk.append(line)
line=file.readline()
file.close()
for y in xk: #对列表xk中的各数据项进行处理
relation(y) #调用定义函数统计y中各门课程同选次数,存储到列表d中
for x in y: #遍历数据项y中的元素,统计每门课程的选课人数
for i in range(9):
print(course[i],"选课人数:",,"人") #输出每门课程的选课人数
maxd=max(d)
print("同选最多的两门课程是:")
for k in range(100):
if d[k]==maxd:
print(course[k//10-1],) #根据列表d的索引计算两门同选课程索引
x = 5: y = -20
If Not x > 0 Then x = y - 3 Else y = x + 3
Print x - y; y – x
Private Sub Command1_ Click()
Dim s As String, a As String, t As String
s=Text1.Text:t=" "
For i=1 To Len(s)
a= Mid(s, i, 1)
If a>= "0" And a <= "9" Then
t=t+a
ElseIf a="!" Then
t=" "
ElseIf t <> "" Then
List1.AddItem t
End If
Next i
End Sub
执行程序时,在文本框Text1中输人“12+ 34=46! 789ok”(不包括双引号),单击按钮Command1后,在列表框List1中显示的结果是( )
| A.12 1234 123446 123446789 | B.12 34 46 789 |
| C.12 1234 789789 | D.12 1234 123446 789 789 |
#将要统计的单词储存在列表lis中,代码略
wordcount={}
#导入作文,分词后储存在列表zw中,代码略
for word in zw:
if word in lis:
① :
wordcount[word]+=1
② :
wordcount[word]=1
print(wordcount)
横线处应填入的代码是( )
描述方法。
第一步,令s=0
第二步,令i=1
第三步,求出s+i,仍用s表示。
第四步,判断i>100是否成立?若是,输出s;
若不是,将i的值增加1,仍用i表示返回第三步。