笔记本电脑重装系统后显示器等硬件设备与c代码配置模式不匹配

因为程序不兼容， 可以更换个版本试试。另外建议参考下程序对配置的要求。或者右键需要运行的程序 选择兼容性 用兼容模式运行试试。

直接重装系统 ：1.简单介绍下如何用森困UltraISO将镜像文件写入U盘，制作U盘启动盘安装系统 ；2.打开UltraISO ,依次点击左上角的“文件”-“打开”。3.浏览到存放镜像文件的目录，选中该目标文件，点击“打开”按钮 ；4.然后再次回到UltraISO窗口，点击菜单栏中的“启动”选“写入硬盘镜像”；

5.接下来在毁春唤d出的窗口直接点击“写入”按钮（注：将写入方式选择为“USB-HDD+”，如果不是这个模式，可能导致电脑无法通过U盘正常启动。）；6.请等待片刻，正在将安装系统的镜像文件数据写入到U盘里 ；7.写入完纤凯成后，重启电脑进入CMOS，设置从U盘启动。然后按照系统提示一步步安装就可以了。

这是肯定的啊，你看：

Dim a As Single 这里，a已经颂歼郑定义为Single(单精度浮点型)

那我们再看，Text1控件里的内容肯定是String(字符类型)的，那么好了：

a = Text1.Text

这里，你要让单精度浮点型的值从字符类型里改闹获取，肯定是类型不符合啊野颂！

你要转换一下类型才行：

a = Val(Text1.Text)

b = Val(Text3.Text)

Dim a As Integer, b As Integer, s As String

Private Sub Command1_Click()

Randomize

Text1.Text = Int(Rnd * 10 + 1)

Text2.Text = Int(Rnd * 10 + 1)

Text3.SetFocus

Command1.Enabled = False

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

s = Text1.Text &"+"纳握虚 &Text2.Text &"=" &Text3.Text

If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then

s = s &"(～ o ～)Y"

a = a + 1

Else

s = s &"o(︶︿︶)o"

b = b + 1

End If

List1.AddItem s

Text1.Text = ""

Text2.Text = ""

Text1.Text = Int(Rnd * 10 + 1)

Text2.Text = Int(Rnd * 10 + 1)

Text3.SetFocus

End If

End Sub

Private Sub Timer1_Timer()

Label5.Caption = Format(a / (a + b), "#.00%")

Command1.Caption = "继续"

Command1.Enabled = True

Text1.Text = "洞燃"皮肆

Text2.Text = ""

Text3.Text = ""

End Sub

---