vb2010编程
Ⅰ 求VB2010像素鸟编程代码
有了前面的入门教程,这篇教程理解起来会简单很多。先来张图看看游戏效果。
本教程源码地址:码云github
现在开始分析这个游戏如何制作。我们首先添加几个游戏场景。
Ⅱ VB编程这题怎么写
vb2010写的程序运行两百次速度还可以,如果要运行再多的次数可以开个多线程去运算就不会卡了
运行前
PrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesButton1.Click
Dim计数器=0
TextBox4.Text="0."
DoWhile计数器<TextBox3.Text
TextBox1.Text=TextBox1.Text*10
TextBox4.Text=TextBox4.Text&TextBox1.TextTextBox2.Text
TextBox1.Text=TextBox1.TextModTextBox2.Text
If(计数器+3)Mod20=0ThenTextBox4.Text&=vbCrLf
计数器+=1
IfTextBox1.Text=0ThenExitDo
Loop
Label1.Text="运算结束,共运算了"&计数器&"次"
EndSub
Ⅲ vb2010与vb6.0中的控件用法完全不同,请问高手,在vb2010中控件combobox的用法请您费心了。
vb6.0的Combo1 与 vb2010的Combobox1用法有很大区别,就你补充的代码可以这样实现:
Me.ComboBox1.Items.Clear()
Dim arrayindex As Integer = 0
Dim m0 As Integer = 5 '姑且等于5吧
For j As Integer = 1 To m0
arrayindex = arrayindex + 1
Me.ComboBox1.Items.Add(gg(j)) 'gg() 要你事先求好
Microsoft.VisualBasic.Compatibility.VB6.SetItemData(ComboBox1, ComboBox1.Items.Count() - 1, arrayindex) '要引用Microsoft.VisualBasic.Compatibility
Next j
ComboBox1.Text = ComboBox1.Items(i - 1) ' i你要事先定义付值
Ⅳ 求教用vb2010编程出输出函数什么的
PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Click
Dima,b,c,dAsSingle
Dimh,i,jAsString
DimkAsDate
a=45.632
b=8246.25
c=123.8
d=45627
h="student"
i="permanence"
j="teachers"
k=#4/5/2004#
MsgBox(Format(a,"00000.00")&Format(b,"00000.00")&Format(c,"00000.00")&Format(d,"00000.00")&Chr(13)&Chr(10)&_
h&Space(12-Len(h))&i&Space(12-Len(i))&j&Space(12-Len(j))&Format(k,"ddddd"))
EndSub
Ⅳ 我是VB初学者,但是现在有个程序需要用MICROSOFT VISUAL BASIC 2010软件编程。 紧急求教该怎么编谢谢
首先我们观察一下这个变换规则。二进制0000就是十进制0,二进制0001就是十进制1,二进制0010就是十进制2……总之,把字符串的前半段和后半段各看为一个2进制数,则每经过一次迭代,这两个数分别加1。迭代三次,加三次1就可以了。但1111接下来是0000,也就是说这两个二进制数不能大于15。如出现大于十五的情况应减十五。
先来一个Textbox(假定为Textbox1)和一个Button(假定为Button1),定义如下五个变量:a,b,i,j为整数,Tempstr为字符串。然后双击按钮,在按钮中的Click事件下写如下代码:
1.读取字符串
a=0
b=0
For i = 1 To 4
a = a * 2 + Val(GetChar(Textbox1.Text, i))
Next
For i = 5 To 8
b = b * 2 + Val(GetChar(Textbox1.Text, i))
Next
2.处理
tempstr=""
For j=1 To 3
tempstr=tempstr+" 迭代"+str(j)+"次:"
a=a+1
b=b+1
if a>15 then a=a-15
if b>15 then b=b-15
For i = 1 To 4
Tempstr = Str(b Mod 2) + Tempstr
b = b \ 2
Next
For i = 1 To 4
Tempstr = Str(a Mod 2) + Tempstr
a = a \ 2
Next
Next
textbox1.text=tempstr
Ⅵ 跪求VB2010 编程的小游戏!!!!
给你发了3个游戏:打砖块、PACMAN、五子棋
Ⅶ vb2010 编程 form1.vb 设计界面丢失 但可以运行 ,也可以修改编程内容,界面不能显示,不能修改界面。
在右侧解决方案管理器当前项目上右键(就是在“11”上右键)→添加→现有项→定位到这个项目目录下面的 Form1.vb 和 Form1.Designer.vb 上(如果有资源文件还有个 Form1.resx),添加。
Ⅷ vb2010 在win7上编译的程序无法在xp上运行
这个是由于兼容性不好造成的。
解决办法:
1、更换电脑的操作系统为XP,在XP环境下编写。
2、直接使用win7系统编写针对于win7系统的程序,这个是发展趋势。
3、更换软件利用其他第三方软件进行编程制作。
Ⅸ VB2010编程问题、、高分求解
好多控件名称和属性变了,不能生搬硬套,希望楼主加强学习
Ⅹ VB2010编写绿色免安装软件
VB6.0和VB.NET是有差别的,并不是说不支持控件数组,而是无法用可视化的方法创建而已。理解对象编程会对你有所帮助。