题型:综合题 题类:常考题 难易度:普通
合并规则如下:
⑴当字符串1的长度大于字符串2的长度时,将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”,字符串2为“123”时,合并后的字符串为“a1b2c3def”。
⑵当字符串2的长度大于等于字符串1的长度时,将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”,字符串2为“12345”时,合并后的字符串为“12d3c4b5a”。
程序运行界面如图所示。
Private Sub Command1_Click()
Dim s1 As String,s2 As String,arts As String
Dim n As Integer,m As Integer,i As Integer
s1=Text1.Text
s2=Text2.Text
m=Len(s1)
n=Len(s2)
If m>n Then
For i=1 To n
ans=ans+Mid(s1,i,1)+Mid(s2,i,1)
Next i
ans=ans+Mid(s1,i,m-n)
Else
For i=1 To m
ans= ① +Mid(s1,i,1)+ans
Next i
ans=Mid(s2,1,n-m)+aFIS
②
Label3.Caption=”合并为”+ans
End Sub
①1 ②2
绘制函数图象y=x2的VB源代码如下,请补充完整。
Private Sub Command1_Click() '按钮的单击事件 Dim x, y As Single '定义x,y两个变量 Picture1.Scale (-10, 25)-(10, -25) '定义坐标系 Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴,颜色为蓝色 Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴,颜色为蓝色 For x = -10 To 10 Step 0.0001 'x值从-10变化到10,每次增量为0.0001 {#blank#}2{#/blank#} '本行代码计算函数y=x2 Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点 Next x '取下一个增量后的x值 End Sub |
以上的VB计算机语言是{#blank#}3{#/blank#}语言。(已知计算机语言有:机器语言、汇编语言、高级语言)
试题篮