x=10
if x>=10:
Value=3*x
else:
Value=5*X+ 10
在VB中有三种程序结构,其中的分支结构中有一种多分支结构,可以针对多种情况进行编程。在编写移动的坦克游戏中,其中有这一段代码
|
1 Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) 2 Select Case KeyCode 3 Case 37 4 Image1.Picture = LoadPicure(App.Path& "\pic\tank1.jpg") 5 If Image1.Left - 20 < 0 Then 6 Image1.Left=0 7 Else 8 Image1.Left= Image1.Left-20 9 End If |

Private Sub Command1_Click( )
Dim a As Single
Dim b As Single
Dim total As Single
a = Val(Text1. Text)
b =Val(Text2. Text)
total =
Text3. Text =
End Sub
for i in range(0,2):
print(i)
for i in range(0,6,2):
print(i)
2
4
6
B . 02
4
C . 02
D . 24
6
#程序1
i=1
while i<101:
print('把这句话打印100遍')
i+=1
#程序2
i=100
while i:
print('把这句话打印100遍')
i=i-2
将字符串(均为大写字符)s依次转换为相对应的数值(字符A~Z对应数值1~26);
·转换后的数值以K个数据为一段,将n个待处理的数据依次分割成若干段(最后一段不足部分用0来补充);
每一段中K个数据与K*K转置矩阵进行乘法运算;
将乘法运算得到的每一个结果值除以26求余数,依次转换成相应字符(数值1~26对应字符A~Z),最后按原始字符串长度输出。
乘法运算规则如下:
第i个元素c(i)=第j个元素a(j)*转置矩阵第j行第i个元素b(t)的乘积之和(其中j=1,2…K)
例如:字符串s=PYTHON,区块大小K=4,的转置过程如下:


Private Sub Command1_Click()
Dim a(1 To 100)As Integer '存储字符串,长度不超过100个字符
Dim b(1 To 100)As Integer '存储转置矩阵,长度不超过10*10
Dim c(1 To 100)As Long
Dim s As String, tmp As String
Dim k As Integer, t As Integer, i As Integer, j As Integer
Dim n As Integer, m As Integer, lens As Integer
s=Text1. Text '在Text1中输入原始字符串
k=Val(Text 2.Text) '在Text2中输入区块大小K
Randomize
For i=1 To k^2
b(i)=Int(Rnd*9)+1
tmp=tmp+Str(b(i))
If i Mod k=0 Then
List 2. AddItem tmp
tmp=""
End If
Next i
lens=Len(s):n=lens
For i=1 To n
tmp=Mid(s,i,1)
List1. AddItem Str(a(i))
Next i
Do While n Mod k<>0
n=n+1
a(n)=0
List1. AddItem Str(a(n))
Loop
For i=1 To n
m=(i-1) Mod k+1
t=1
For j=
c(i)=a(j) * b((m-1) * k+t)+c(i)
t=t+1
Next j
Next i
For i=1 To n
List3. AddItem Str(c(i))
Next i
s=″″
For i=1 To lens
s=s+Chr(t+64)}
Next i
Text 3.Text=s '在Text 3中输出转置后的字符串
End Sub
s="abcdefg"
c=len(s) #len 求字符串长度
for i in range(0,c):
if i<2:
print (chr(ord(s[i])+2),end=" ") # ord()函数是chr()函数配对函数,将字符转ASCII值
else:
print(chr(ord(s[i]) + 3),end=" ")
a=int(input("请输入你的年龄: "))
if a<=3:
print("没到买票年龄")
elif a>=4 and a<12:
print("请购买儿童票")
else:
print("请购买全价票")
For i=1 To 6
For j=1 To 4
Print”*”
Next j
Next i
Dim x As Integer
x=2
Do while x<=63
x=(x+1)*(x-1)
Loop
a=input( )
b=input()
c=a+b
print (c)
for i in range(1,101):
s=s+i
print(s)
运行结果是()


for i in range(6):
print( )
*
**
***
****
*****