一道比较简单的VB程序题目,只需要代码即可
1.用VB编程序设计一个简易的计算器
代码:
Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + “.“ Case 11 To 14 num_1 = Val(Label1.Caption) Label1.Caption = ““ flag = Index Case 15 num_2 = Val(Label1.Caption) Label1.Caption = ““ If Command1(flag).Caption = “+“ Then Label1.Caption = num_1 + num_2 ElseIf Command1(flag).Caption = “-“ Then Label1.Caption = num_1 - num_2 ElseIf Command1(flag).Caption = “*“ Then Label1.Caption = num_1 * num_2 Else Label1.Caption = num_1 / num_2 End If Case 16 num_1 = 0 num_2 = 0 Label1.Caption = ““ End SelectEnd Sub Private Sub Form_Load() Me.AutoRedraw = True For i = 0 To 9 Command1(i).Caption = i Next iEnd Sub窗体界面设置:
在窗体上建立控件数组Command1(0),Command1(1),Command1(2),……,Command1(16),其Captint属性分别设置为0,1,2,3,4,5,6,7,8,9,.,+,-,*,/,=,C-vb程序设计经典例题
2.用VB编程序实现十进制与二进制之间的相互转化
代码:
Private Sub Command1_Click() Text3.Text = ““ Text4.Text = “0.“ n = Val(Text1.Text) Do While n 》 0 Text3.Text = CStr(n Mod 2) + Text3.Text n = n \ 2 Loop n = Val(Text2.Text) Do While n 》 0 Text4.Text = Text4.Text + CStr(Fix(2 * n)) n = 2 * n - Fix(2 * n) LoopEnd Sub Private Sub Command2_Click() Dim s1, s2 Text1.Text = ““ Text2.Text = ““ For i = 1 To Len(Text3.Text) s1 = s1 + Val(Mid(Text3.Text, i, 1)) * 2 ^ (Len(Text3.Text) - i) Next i Text1.Text = s1 For i = 3 To Len(Text4.Text) s2 = s2 + Val(Mid(Text4.Text, i, 1)) * 2 ^ (-(i - 2)) Next i Text2.Text = “0“ + CStr(s2)End Sub Private Sub Command3_Click() Text1.Text = ““ Text2.Text = ““ Text3.Text = ““ Text4.Text = ““End Sub Private Sub Form_Load() Me.AutoRedraw = TrueEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii 《 48 Or KeyAscii 》 57) And KeyAscii 《》 8 Then KeyAscii = 0 Beep End IfEnd Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii 《 48 Or KeyAscii 》 57) And KeyAscii 《》 8 And KeyAscii 《》 46 Then KeyAscii = 0 Beep End IfEnd Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If (KeyAscii 《 48 Or KeyAscii 》 49) And KeyAscii 《》 8 Then KeyAscii = 0 Beep End IfEnd Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If (KeyAscii 《 48 Or KeyAscii 》 49) And KeyAscii 《》 8 And KeyAscii 《》 46 Then KeyAscii = 0 Beep End IfEnd Sub运行界面:
应用程序无法正常启动0xc000000d浏览器ie打不开
应用程序错误问题:
1.木马病毒造成常用病毒捆绑应用程序和系统文件,然后安全杀毒软件把有木马病毒应用程序和系统文件查杀导致。
2.应用程序组件丢失,应用程序完整的运行需要一些系统文件或者某些ll文件支持,如果应用程序组件不完整也会导致的。
3.系统文件损坏或丢失,盗版系统或Ghost版本系统,很容易出现该问题。
4.操作系统自身的问题,操作系统本身也会有bug
。
5.硬件问题,例如内存条坏了或者存在质量问题,或者内存条的金手指的灰尘特别多。
应用程序错误解决方法:
1.检查电脑是否存在病毒,请使用百度卫士进行木马查杀。
2.系统文件损坏或丢失,盗版系统或Ghost版本系统,很容易出现该问题。建议:使用完整版或正版系统。
3.安装的软件与系统或其它软件发生冲突,找到发生冲突的软件,卸载它。如果更新下载补丁不是该软件的错误补丁,也会引起软件异常,解决办法:卸载该软件,重新下载重新安装试试。顺便检查开机启动项,把没必要启动的启动项禁止开机启动。
4.如果检查上面的都没问题,可以试试下面的方法。
打开开始菜单→运行→输入cmd→回车,在命令提示符下输入下面命令
for
%1
in
(%windir%\system32\*.dll)
do
regsvr32.exe
/s
%1回车。
完成后,在输入下面
for
%i
in
(%windir%\system32\*.ocx)
do
regsvr32.exe
/s
%i
回车。
如果怕输入错误,可以复制这两条指令,然后在命令提示符后击鼠标右键,打“粘贴”,回车,耐心等待,直到屏幕滚动停止为止(重启电脑)。
-程序
三大编程语言
此图中,排名前5的分别是:
JAVA、C、Python、C++和C#
占比分别为:
17.253%、16.086%、10.308%、6.196%、4.801%