数组dzb_h的16个元素分别存放16进制数的16个基本数码。
依次取出原始颜色代码中每一位对应的16进制数码,例如原始颜色代码为#123456,第1次取出1,第2次取出2……
在数组dzb_h各元素中找到对应16进制数码的元素
运用规律:0+F=1+E…=7+8取得反相色并累加,例如:数组dzb_h第1个元素值的反相色的值是数组dzb_h第16个元素值。
输出得到的反相色。
实现上述功能的VB程序代码段如下,请完善相关程序代码。
Private Sub fx_cmd_Click()
Dim dzb_h(1 To 16) As String
Dim o_c As String, f_c As String, i As Integer, xbxh As Integer, c As String
dzb_h(1)="0":dzb_h(2)="1":dzb_h(3)="2":dzb_h(4)="3":dzb_h(5)="4":dzb_h(6)="5":dzb_h(7)="6"
dzb_h(8)="7":dzb_h(9)="8":dzb_h(10)="9":dzb_h(11)="A":dzb_h(12)="B":dzb_h(13)="C"
dzb_h(14)="D":dzb_h(15)="E":dzb_h(16)="F"
o_c=o_c_txt.Text
f_c="#"
Do While i<=Len(o_c)
c=Mid(o_c,i,1)
If Asc(c)>96 Then
xbxh=1
Do While xbxh<17
If Then
f_c=
Exit Do
End If
xbxh=xbxh+1
Loop
i=i+1
Loop
f_c_lab.Caption=f_c
End Sub
Dim i As Integer, c As String, s As String, t As String
s=“GaoEr1YueXKChongA!”
For i = 1 To Len(s)
c=Mid(s, i, 1)
If c >= “A” And c<=“Z” Then t=t+c
Next i
Text1.Text = t
程序运行结束后是在文本框Text1中输出的结果是( )
s=1
for i in range(1,6,2):
s=s+i
print(s)
Private Sub Command1_Click( )
Dims As String, i As Integer
s=Text1.Text
For i=1 To 8 Step 2
s=ds(s, i)
Next i
Text2.Text=s
End Sub
Function ds(s As String, m As Integer)As String
Dim n As Integer
n=Len(s)
If m<1 0r m>n Then ds= "位置有误"
If m=1 Then ds=Mid(s, 2, n-1)
If m=n Then ds=Mid(s, 1, n-1)
If m <n Then ds=Mid(s, 1, m-1)+Mid(s, m+1, n-m)
End Function
若在文本框Text1中输入“TXHOLLYCLASS”,执行该程序段后,文本框Text2中显示的是( )
cnt = 0
For i = 1 To 10
If (v(i)) Then
j = i
Do While (v(j))
v(j) = False
j = a(j)
Loop
cnt = cnt + 1
End If
Next i
执行上述程序段后,cnt的值是( )
Dim x As String,y As String
Dim ans As Integer
x="5":y="20":ans=0
If x>y Then ans=Val(x) Else ans=Val(y)
ans=ans +Val(x+y)
Text1.Text=Str(ans)
执行该程序段后,文本框Text1中显示的内容是
Dim k As Integer, num As Integer, m As Integer
Dim s As String, ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26:ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s, x,1)
s =Mid(s,1,x-1)+Mid(s,k,1)+Mid(s,x+1,26-x)
k=k-1:m=m-1
Loop
Text2.Text = ans
文本框Text1中输入4,执行上述程序后,文本框Tex2中有显示的内容不可能为( )
listque=[] #定义列表listque存储订单
x=0
while(x!=4):
print('1. 添加订单')
print('2. 发货')
print('3. 查看订单列表')
print('4. 退出')
x=int(input("输入你的选择:"))
if x==1:
y=input("输入订单编号:")
listque.append(y)
elif x==2:
if len(listque)==0:
print("订单列表为空")
else:
print("发货单号:"+listque.pop(0))
elif x==3:
print("等待发货:",listque)
print( )
input("运行完毕,请按回车键退出...")
a = 3
b = 4
a = a * b
print(a)
def fun(b):
c=a*b
return C
a=4
print(fun(a))
程序执行后,输出的结果是。
s=["Java", "C++", "Python", "C","PHP*"]
max=s[0]
i=1
while i<len(s) :
if max<s[i]:
max=s[i]
i+=1
print (max)
程序执行后,输出的结果是 。
Dim a(1 To 26)As Integer
s=Text1. Text
For i=1 To Len(s)
①
If c>="A" And c<="Z" Then c=Chr(Asc(c)+32)
②
Next i
For i=1 To 26
If a(i)<> 0 Then Label1.Caption= Label1.Caption+ ③
Next i
n=0
for i in range(1,4):
n+=i
| A | Sum=0 For i=1 To 12 Step 2 Sum =Sum+1/i Sum =-Sum Next i | B | Sum=1:t=1 For i=3 To 11 Step 2 Sum= Sum+t/i t =-t Next i |
| C | Sum=0 For i=1 To 11 Step 4 Sum =Sum+1/i Sum =Sum-1/(i + 2) Next i | D | Sum=1 For i=3 To 11 Step 2 t=(-1)^ (i\2) Sum= Sum+t/i Next i |
请将下列程序补充完整。
tc=1020
c=0
while :
tc=tc-(tc/2+2)
print(c)
Private Sub Command1_Click( )
X=Val(Text1.Text)
Select Case X
Case
Print “出错”
Case Is<0
Y=100-X
Case 0 To 100
Y=100+X
Case
Y=400
End Select
Text2.Text=X
End Sub
a=[1,2,3,4,5]
b=[1,3,5,7,9]
for i in range(10):
if i in a:
if i in b:
print(i,end=“→”)
以上程序段执行后的输出结果是( )