×

vb程序设计经典例题 程序

一道比较简单的VB程序题目,只需要代码即可?应用程序无法正常启动0xc000000d浏览器ie打不开

admin admin 发表于2022-06-05 03:55:55 浏览107 评论0

抢沙发发表评论

一道比较简单的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%