关于vb点虐 编写测试程序的信息

用VB.NET编写了一个程序。开发机器是64位WIN7专业版（英文版）的系统，在相同系统的机器上测试通过...

我给你点建议，虽然我给你解决不了。

成都创新互联公司专业为企业提供仁寿网站建设、仁寿做网站、仁寿网站设计、仁寿网站制作等企业网站建设、网页设计与制作、仁寿企业网站模板建站服务，10多年仁寿做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

你源程序有一个调用错误，或者有一个系统参数丢失，你尤其是注意检查，错误列举处的参数引用。（另外不排除内存不足，造成溢出，冲掉了一个必要的内部程序）。

另外看样子形参传递，经过某些字符转换出现错误，或者使用特殊字符的密码无法登陆。有可能是你的写入权限不足造成。

对于此，依然建议卸掉net组件，然后重新安装一下。

以上仅供参考。

怎么用vb点虐 做一个简单的心理测试 就那种选择A出一张图 选择B弹出一张图

把图片存入资源，或把路径存放变量，在a,b的click事件中加载即可

VB.NET怎么编程测试CPU电压

'

'！！！重要：首先要添加“引用”一个dll，选择“System Management”；

'

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Text

Imports System.Windows.Forms

Imports System.Management

Imports System.IO

Namespace WindowsApplication1

Partial Public Class Form1

Inherits Form

Public Sub New()

InitializeComponent()

End Sub

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取CPU编号

Dim [MyClass] As New ManagementClass("Win32_Processor")

Dim MyCollection As ManagementObjectCollection = [MyClass].GetInstances()

Dim MyInfo As String = "当前系统CPU编号是："

Dim MyCPUID As String = ""

For Each MyObject As ManagementObject In MyCollection

MyCPUID = MyObject.Properties("ProcessorId").Value.ToString()

Exit For

Next MyObject

MyInfo = MyCPUID

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的当前电压

Dim MyInfo As String = "计算机CPU的当前电压是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

Try

MyInfo = ControlChars.Lf  String.Format("CurrentVoltage : "  MyObject("CurrentVoltage").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Catch

End Try

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的外部频率

Dim MyInfo As String = "计算机CPU的外部频率是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

Try

MyInfo = ControlChars.Lf  String.Format("ExtClock : "  MyObject("ExtClock").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Catch

End Try

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button4_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的二级缓存

Dim MyInfo As String = "计算机CPU的二级缓存尺寸是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("L2CacheSize: "  MyObject("L2CacheSize").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的制造商名称

Dim MyInfo As String = "计算机CPU的制造商名称是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("Manufacturer : "  MyObject("Manufacturer").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button6_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的产品名称

Dim MyInfo As String = "计算机CPU的产品名称是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("Name : "  MyObject("Name").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button7_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的版本信息

Dim MyInfo As String = "计算机CPU的版本信息如下："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("Version: "  MyObject("Version").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button8_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的当前使用百分比 注意要把SQLserver或者其他耗CPU的软件开着否则看不到效果就一直为0

Dim MyInfo As String = "计算机CPU的当前使用百分比是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("LoadPercentage : "  MyObject("LoadPercentage").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button9_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的最大时钟频率

Dim MyInfo As String = "计算机CPU的最大时钟频率是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("MaxClockSpeed : "  MyObject("MaxClockSpeed").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button10_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机CPU的当前时钟频率

Dim MyInfo As String = "计算机CPU的当前时钟频率是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("CurrentClockSpeed : "  MyObject("CurrentClockSpeed").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button11_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机的CPU地址宽度

Dim MyInfo As String = "当前计算机的CPU地址宽度是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("AddressWidth: "  MyObject("AddressWidth").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub button14_Click(ByVal sender As Object, ByVal e As EventArgs)

'获取计算机的CPU数据宽度

Dim MyInfo As String = "当前计算机的CPU数据宽度是："

Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")

For Each MyObject As ManagementObject In MySearcher.Get()

MyInfo = ControlChars.Lf  String.Format("DataWidth : "  MyObject("DataWidth").ToString())

MyInfo = ControlChars.Lf  "========================================================="

Next MyObject

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

End Class