VB编程：编写一个简单的程序，要求： 在任意一个界面用键盘输入“a”,显示“bcd”
'首先把窗体的KeyPreview属性设为True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
If a - 200 >= 0 Then
Label1.Move a - 200, b
a = a - 200
End If
Case vbKeyD
If a + 200 <= Form1.ScaleWidth - Label1.Width Then
Label1.Move a + 200, b
a = a + 200
End If
Case vbKeyW
If b - 200 >= 0 Then
Label1.Move a, b - 200
b = b - 200
End If
Case vbKeyS
If b + 200 <= Form1.ScaleHeight - Label1.Height Then
Label1.Move a, b + 200
b = b + 200
End If
End Select
End Sub
通过option的click()事件来引发你说的事件
Private Sub Option1_Click()
MsgBox "你选择了第一个按钮"
End Sub
Private Sub Option2_Click()
MsgBox "你选择了第2个按钮"
End Sub
Private Sub Option3_Click()
Msgbox "你选择了第3个按钮"
End Sub
Private Sub Option4_Click()
MsgBox "你选择了第4个按钮"
End Sub
If KeyAscii = 65 Then Print "BCD" 如果按下的是小写字母a，打印字符串“BCD”
End Sub
以上是窗体的代码
你这个可不是简单的程序，
1、后台监测键盘按键
2、模拟键盘输入，其实这个倒不难，sendkeys就可以了。
主要是后台监测键盘不好弄。
窗体么 一般使用“print”就好啦 ，模块的话 可能要编写调用指令，有的版本上调用不起来，
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then Text1.Text = "bcd"
End Sub
楼主 你好 你是想输入a输出bcd 输入b输出cde 还是想怎样
VB编程:编写一个简单的程序,要求: 在任意一个界面用键盘输入“a”,显 ...
Private Sub Form_KeyPress(KeyAscii As Integer) '当有按键按下时 If KeyAscii = 65 Then Print "BCD" 如果按下的是小写字母a，打印字符串“BCD”End Sub 以上是窗体的代码
如何用VB编写一个简单的选号器?就是点击然后程序随机帮选出一个数(1...
Private Sub Command1_Click()Dim a(6) As Integer Dim b As Integer For i = 1 To 6 a(i) = Int(Rnd() * (1 + (33 - 1))) + 1 For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 End If Next Next For i = 1 To 6 For j = i + 1 To 6 If a(...
编程:编程实现一个简单的四则运算计算器:从键盘输入一个四则运算表达式...
int main(){ double a, b;char op;scanf ("%lf", &a);while (scanf ("%c", &op) && op != '='){ scanf ("%lf", &b);if (op == '+'){ a = a+b;} else if (op == '-'){ a = a-b;} else if (op == '*'){ a = a*b;} else if (op == '\/'){...
Java简单代码?
求助三个简单JAVA代码1、最简单的java代码肯定就是这个了，如下：publicclassMyFirstApp{publicstaticvoidmain(String[]args){System.out.print(Helloworld)；}}“helloworld”就是应该是所有学java的新手看的第一个代码了。2、这只是一个简单实体类（叫做javabean）。publicPassenger是构造函数的重写，在类中...
急!关于VB,简单的程序设计
1.程序设计算法问题该章程序编写难度较大,主要是算法的构思有困难,这也是程序设计中最难学习的阶段。经验告诉每一位程序设计的初学者,没有捷径可走,多看、多练、知难而进。上机前一定要先编写好程序,仔细分析、检查,才能提高上机调试的效率。每当一个程序通过艰苦的努力调试通过时,那苦尽甘来的喜悦令你一言难尽。
如何编写一个简单的shell脚本
1、首先打开编程界面，查看现在dog目录下的文件的权限信息。2、现在b.txt的用户权限是RW，组权限是RW，其他权限是R。现在我给用户权限加上X运行权限。3、同样的方法给组、其他人加上运行权限使用chmod u\/g\/o +x b.txt 。4、如果要取消对应的权限，使用“-”号即可。5、除了使用RWX字符后还可以...
求java考题,笔试题
16. 编程:编写一个截取字符串的函数,输入为一个字符串和字节数,输出为按字节截取的字符串。但是要保证汉字不被截半个,如"我ABC"4,应该截为"我AB",输入"我ABC汉DEF",6,应该输出为"我ABC"而不是"我ABC+汉的半个"。public static void split(String source,intnum) throws Exception{ intk=0; String...
编写一个简易计算器程序,根据用户输入的运算符做两个数的加,减,乘或...
include<stdio.h> main(){double a,b;double result:char operator;printf("Pleasr input two number:");scanf("%f,%f",&a,&b);printf("please input the operator:");scanf(%c",&operator);if(opreator=='+')printf("result=%d\\n",a+b);else if(opreator=='-')printf("result=%d...
编写一个简单计算器程序,可根据输入的运算符,对2个整数进行加,减,乘...
include<stdio.h>void main() { int x,y,b; float z; char c; scanf("%d %c %d",&x,&c,&y); b=1; switch ( c ) { case '+': z=x+y; break; case '-': z=x-y; break; case '*': z=x*y; break; case '\/': z=( y==0 )?(0):((float)...
2. 编一个模拟计算器进行简单算术运算的程序(c=a运算符b),只做加、减...
Switch用在编程中,如C语言中它经常跟Case一起使用,是一个判断选择代码。其功能就是控制流程流转的。 直线翻译:switch语句,即“切换”语句;case即“情况”。 switch语句的语法如下(switch,case,break和default是关键字): switch ( 变量表达式 ) { case 常量1 :语句;break; case 常量2 :语句;break; case 常量...
赧殷小儿：[答案] 帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中若满意请及时采纳,谢谢
巴塘县15036026295： VB编程:编写一个简单的程序,要求: 在任意一个界面用键盘输入“a”,显示“bcd” - ？
赧殷小儿： Private Sub Form_KeyPress(KeyAscii As Integer) '当有按键按下时 If KeyAscii = 65 Then Print ＂BCD＂ 如果按下的是小写字母a,打印字符串“BCD” End Sub 以上是窗体的代码
巴塘县15036026295： 用VB编个简单的程序. - ？
赧殷小儿： Private Sub Command1_Click() Dim a(3) As Double For i = 0 To 2 a(i) = InputBox(＂请输入第＂ & i & ＂个数字:＂) Next iFor i = 2 To 0 Step -1For j = 0 To i - 1If a(j) < a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = tempNext j Next iFor i = 0 To 2 Print a(i) Next i End Sub
巴塘县15036026295： 如何使用VB编写一个简单的小程序? - ？
赧殷小儿： 在桌面上,鼠标左键双击程序,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数,如下图所示. 接着,用同样的方法,在Form1窗口上绘制出...
巴塘县15036026295： ■用vb编一个简单的游戏(代码)(要详细) - ？
赧殷小儿： '猜数字,这个简单了吧. Private Sub Form_Load()Randomizenum = Int(Rnd * 1000)str1 = ＂输入一个0到999间的整数＂Donum1 = Val(InputBox(str1))If num1 > num Thenstr1 = ＂大了＂ElseIf num1 < num Thenstr1 = ＂小了＂ElseMsgBox ＂恭喜您!答对了.＂Exit DoEnd IfLoop End Sub
巴塘县15036026295： vb编写一个简单的计算机程序 - ？
赧殷小儿： 值不能这样加的吧,应该要把它写进cint()的函数里,就是cint(name1.value)+cint(name2.value )
巴塘县15036026295： 怎么用vb做一个简单的程序 - ？
赧殷小儿： 加入标签Label1,Caption设置为“你好,请输入你的姓名” 加入文本框Text1,用来输入姓名的 加入标签Label2,按照你的要求设置字体属性,autosize属性设成true 分别加入确定,继续,结束按钮 以下是代码: Private Sub Form_Load()Me.结...
巴塘县15036026295： 用vb编写程序,要求输入一个日期,能输出下一天的日期 - ？
赧殷小儿： 加一个文本框,一个按钮,按钮代码如下:Private Sub Command1_Click() Dim a As Date a = Text1.Text Text1.Text = a + 1 End Sub 运行试试吧,日期格式是这样的:0000-00-00比如今天的就是2012-10-21.第一张是运行图,第二张是点击后的效果图.
巴塘县15036026295： 用vb编写一个简单的程序 - ？
赧殷小儿： 新建一个窗体,画2个文本框 Text1和Text2,代码放在窗体里面...Option Explicit Dim arrPYPrivate Sub Form_Load()Text1.Text = ＂＂Text1.MaxLength = 2Text2.Text = ＂＂Text2.Locked = True arrPY = Array(＂ling＂, ＂yi＂, ＂er＂, ＂san...
巴塘县15036026295： VB编程如何编写一个程序 - ？
赧殷小儿： 你首先要创建对象然后进入代码窗口编写代码过程可以分为以下几个 1、新建EXE文件标准EXE文件 2、创建对象 3、编写代码 4、运行程序 我这里有个程序源代码你去运行一下首先你要创建以下几个对象: 1、文本框(TEXT1) 2、命令按钮(COMMAND1) 命令按钮代码如下: TEXT1.TEXT=＂电脑维护＂ 我的QQ是742695603有问题的话加我
