如和用vb编写一个可以左右移位的 *** 作函数啊求高手指点

加1个timer 控件

加1个picture控件

然后复制下面代码就行了，带说明，打了好久，分就给我吧。

'======================================================

Dim V As Single

'设置一些基本条件

Private Sub Form_Load()

Form1KeyPreview = True

Timer1Interval = 10

End Sub

'按下键盘改变速度

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 39 Then

V = 20 '速度=20

ElseIf KeyCode = 37 Then

V = -20 '速度=-20

End If

End Sub

'松开键盘停止移动

Private Sub Form_Keyup(KeyCode As Integer, Shift As Integer)

V = 0

End Sub

'timer1控制picture移动

Private Sub Timer1_Timer()

Picture1Left = Picture1Left + V

End Sub

苹果用户最常见的一个问题是忘记了apple id密码，这样就没办法从appstore下载应用了。

本篇经验就为大家解决苹果ID密码忘了怎么办的问题，希望对大家有帮助！

方法

1

360搜索苹果，进入官网

2

进入苹果官网，如下图所示

3

首页拉到底部，点击管理我的apple ID，如下图所示

4

点击登陆界面下方的忘记了apple ID 密码，进入Apple ID重置页面。如下图所示

5

在Apple ID重置页面输入你的Apple ID，肯定是一个邮箱地址。点击继续按钮，如下图所示

6

选择你是要重设密码还是重设安全问题，然后点击继续按钮，如下图所示

7

有两种方法找回。电子邮件找回或回答安全问题找回。

8

选择电子邮件找回，点击按钮”下一步“

9

系统会向你的Apple ID邮箱发送一份邮件。

10

登陆你的Apple ID邮箱，会收到一份如何重设Apple ID密码的邮件。

11

单击进入邮件，点击链接”重设你的Apple ID密码“。

12

两次输入你的新密码！然后点击按钮”重设密码“。

13

密码重设成功！可以使用你的新密码登陆了！

算术右移：

将 *** 作数右移m位，同时每移一位，左边的符号位保持不变，移出的最低位进入标志位CF。对于有符号数和无符号数而言，算术右移相当于除以2

如：

1001 0110 右移1位就是：1100 1011

4个循环移位指令：

循环移位指令类似移位指令，但要将从一端移出的位返回到另一端形成循环。它分成不带进位循环移位和带进位循环移位，分别具有左移或右移 *** 作

ROL reg/mem,1/CL ;不带进位循环左移

ROR reg/mem,1/CL ;不带进位循环右移

这两条指令不将进位标志CF纳入循环位中。

RCL reg/mem,1/CL ;带进位循环左移

RCR reg/mem,1/CL ;带进位循环右移

这两条指令将进位标志CF纳入循环位中，与 *** 作数一起构成的9位或17位二进制数一起移位。

循环移位指令的 *** 作数形式与移位指令相同，如果仅移动一次，可以用1表示；如果需要移位多次，则需用CL寄存器表示移位次数。

循环移位指令按照指令功能设置进位标志CF，不影响SF、ZF、PF、AF标志。对OF标志的影响，循环移位指令与前面介绍的移位指令一样。

参看：>

Option Explicit

Private Sub Form_Load()

    MsgBox MoveStr("abcdefghij", 3, True)

    MsgBox MoveStr("abcdefghij", 3, False)

    Dim Buffer As String

    Dim i As Integer

    Randomize

    For i = 0 To 9

        Buffer = Buffer & Chr(Asc("A") + Int(Rnd()  26))

    Next

    MsgBox "随机字符串: " & Buffer & vbCrLf & _

           "向左移三位: " & MoveStr(Buffer, 3, False) & vbCrLf & _

           "向右移三位: " & MoveStr(Buffer, 3, True)

    End

End Sub

Public Function MoveStr(ByVal a As String, ByVal m As Integer, ByVal tag As Boolean) As String

    MoveStr = a

    If m < 1 Then Exit Function

    If m > 10 Then Exit Function

    Dim Length As Long

    Dim Index As Long

    Length = Len(a)

    If Length > 0 Then

        Index = m Mod Length

        If Index > 0 Then

            If tag Then

                MoveStr = Mid(a, Index + 1) & Left(a, Index)

            Else

                MoveStr = Right(a, Index) & Left(a, Length - Index)

            End If

        End If

    End If

End Function

vb定时器就是 timer控件，它的interval属性值控制着两次调用timer控件的Timer事件间隔的毫秒数。

例如：小程序用定时器控制实现自动移位（每隔100毫秒，的left和top值发生一次变化。

vb循环语句格式有

for 循环控制变量初值  to  循环控制变量终值 step 控制变量递增（递减）值

   循环语句体

next  循环控制变量

作用就是，当循环控制变量不满足终值条件时，执行循环语句体，执行一次后，循环变量值自动递增（递减），然后再判断是否到达终值，如果到达就退出循环，不到达就继续循环。

还有 while…… wend   do…… while  do…… loop until 循环的意思是一样的，就是判断条件与执行顺序有些变化。

例如：打印九九乘法表（循环嵌套）

Private Sub Form_Click()

Dim i, j As Integer

For i = 1 To 9

For j = 1 To 9

  Print i j & vbTab;

Next j

 Print

Next i

End Sub

vb判断语句格式有

if  条件判断 then  条件为真要执行的语句end if

if 条件判断 then 条件为真要执行的语句 else（elseif）条件为假要执行的语句end if

Select Case 变量名

Case 常数值（情况1）    变量值=常数值（情况1）时 要执行的语句

End Select

例如：

Private SubCommand1_Click()

Dim a As Integer

a = Val(Text1Text)

If a < 1000 Then

Text2Text = a

ElseIf a < 2000 Then

Text2Text = 09 a

ElseIf a < 3000 Then

Text2Text = 08 a

Else

Text2Text = 07 a

End If

End sub

改成Select形式

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1Text)

Select Case Int(a / 1000)

Case 0:     Text2Text = a

Case 1:     Text2Text = 09 a

Case 2:     Text2Text = 08 a

Case Else

           Text2Text = 07 a

End Select

End Sub

综合应用的例子，找第几个素数

Private Sub Command1_Click()

Dim sum, m, n, ss As Integer 'sum存放找到素数的累计数，n用户输入数值，ss存放素数

Dim f As Boolean            '布尔变量f作为判断是否为素数的标志

sum = 0

ss = 1

n = Val(InputBox("请输入要查找的第n个素数"))  '用户输入要查找的素数位置

While sum < n              '循环当前查找到的素数是否为第n位素数

f = True

ss = ss + 1

For m = 2 To ss - 1        '判断ss是否为素数

If Int(ss / m) = ss / m Then

  f = False

  Exit For

End If

Next m

If f = True Then           '找到一个素数就记一次数

  sum = sum + 1

End If

Wend

Print "要查找的第" & n & "个素数是" & ss   '打印输出第n位的素数

Print

End Sub

#include <stdioh>

void shift(char c1,char c2,char c3,char c4,char c5)

{

char t;

t=c1;

c1=c2;

c2=c3;

c3=c4;

c4=c5;

c5=t;

}

void main()

{

char c[]="ABCDE";

for(int i=0;i<5;i++)

{

printf("%s\n",c);

shift(&c[0],&c[1],&c[2],&c[3],&c[4]);

}

}

以上就是关于如和用vb编写一个可以左右移位的 *** 作函数啊求高手指点全部的内容，包括:如和用vb编写一个可以左右移位的 *** 作函数啊求高手指点、vb怎么样设置一个口令。加密程序，口令由字母构成，将输入的每个字母循环左移两个字母（区分大小写）、汇编语言基本移位指令和循环移位指令的问题的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！