在VB里面，想设计一个能显示出一台计算机可用物理内存总大小的程序，该怎么办？

VB如何获取计算机物理内存大小？~

Option Explicit Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) '调用api函数 Private Type MEMORYSTATUS '自定义类型
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private mem As MEMORYSTATUS '变量定义Private Sub Command1_Click()
Call GlobalMemoryStatus(mem) '取内存信息
Text1.Text = "物理内存大小：" & CLng(mem.dwTotalPhys / 1024 / 1024) & "MB" '在text控件中显示End Sub

打开文件
读取600个数，放入数组中，比如a
对a数组排序，随便什么排序算法都可以，比如冒泡排序，比如选择排序，等等。
逐个比较找出大于1000的奇数（因为已经排序，所以一旦出现小于等于1000的情况，可以终止后续操作）

在VB6下使用API函数GlobalMemoryStatus，函数声明如下：Public Type MEMORYSTATUSdwLength As LongdwMemoryLoad As LongdwTotalPhys As LongdwAvailPhys As LongdwTotalPageFile As LongdwAvailPageFile As LongdwTotalVirtual As LongdwAvailVirtual As LongEnd TypePublic Declare Sub GlobalMemoryStatus Lib "kernel32" Alias "GlobalMemoryStatus" (ByRef lpBuffer As MEMORYSTATUS) Dim memory As New MEMORYSTATUS memory.dwLength = Len(memory) GlobalMemoryStatus(memory) tb.Text = tb.Text & "可用物理内存总量:" & memory.dwAvailPhys & " Byte" & vbCrLf tb.Text = tb.Text & "可用虚拟内存总量:" & memory.dwAvailVirtual & " Byte" & vbCrLf tb.Text = tb.Text & "当前物理内存总量:" & memory.dwTotalPhys & " Byte" & vbCrLf tb.Text = tb.Text & "当前虚拟内存总量:" & memory.dwTotalVirtual & " Byte" & vbCrLf tb.Text = tb.Text & "" & vbCrLf在VB2005下就更简单了，在My空间下直接有个info类直接可以获得 tb.Text = tb.Text & "可用物理内存总量:" & My.Computer.Info.AvailablePhysicalMemory & " Byte" & vbCrLf tb.Text = tb.Text & "可用虚拟内存总量:" & My.Computer.Info.AvailableVirtualMemory & " Byte" & vbCrLf tb.Text = tb.Text & "当前物理内存总量:" & My.Computer.Info.TotalPhysicalMemory & " Byte" & vbCrLf tb.Text = tb.Text & "当前虚拟内存总量:" & My.Computer.Info.TotalVirtualMemory & " Byte" & vbCrLf

Private Declare Function icePub_machineGetInfo Lib "icePubDll.dll" (ByVal typeFlag As Integer, ByVal strInfo As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024 * 10)

a2 = icePub_machineGetInfo(1, str1)
MsgBox "mac:" + str1
a2 = icePub_machineGetInfo(2, str1)
MsgBox "cpu:" + str1
a2 = icePub_machineGetInfo(3, str1)
MsgBox "hard:" + str1
a2 = icePub_machineGetInfo(4, str1)
MsgBox "memery:" + str1
a2 = icePub_machineGetInfo(5, str1)
MsgBox "boarddate:" + str1

---

岱山县19581905011： 在VB里面,想设计一个能显示出一台计算机可用物理内存总大小的程序,该怎么办?？
邴司百定： 在VB6下使用API函数GlobalMemoryStatus,函数声明如下: Public Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long ...

岱山县19581905011： 急请问我有两台局域网电脑,我想用VB编一个程序,一台电脑的VB窗口可以显示另一台电脑的屏幕.请问这如何实现 - ？
邴司百定： 找个远程桌面的软件 如果要对方不发现的话 是需要远程控制类 接近木马类的软件 要花点时间去找 因为大部分都报毒,远程桌面类系统自带的就不会了

岱山县19581905011： vb6.0怎么做一个电动机画面 - ？
邴司百定： 在设计时把窗口的ShowInTaskbar属性设置为True,然后把WindowState设置为vbMinimized就可以,见下面代码:PrivateSubCommand1_Click()Form1.WindowState=vbMinimizedEndSub效果如下:

岱山县19581905011： 怎样用VB编一个能在桌面显示文字的程序, 像网吧的那个“此机挂机中...”的一样？
邴司百定： 让这个程序完成如下: 1.全屏程序. 2.改程序在顶层. 3.屏蔽热键. 4.增加密码功能. 这个程序需要API来完成,但网上已经有很多源代码的实例了,所以没必要自己写了.搜下吧.多的很.

岱山县19581905011： 在VB中如何可以弹出一个独立窗口显示图像,例如在matlab中可以用imview实现一样 - ？
邴司百定： 新做一个窗体,把image控件放在里面,把控件的大小最大和窗体一边大,就行了.

岱山县19581905011： VB中要建立一个窗体,在单击某一个菜单时可以弹出这个窗体,该如何创建这个窗体? - ？
邴司百定： 将这个窗体设置为子窗体,菜单命令写成:窗体.show就可以了

岱山县19581905011： 请问各位用VB设计系统,设计一个窗体来展示系统信息,在系统加载时首先加载展示窗体,怎么实现呢,我都试了好几次了不行？
邴司百定： 首先你应该设置Timer1的Interval属性.具体设置为多少要看你想让展示窗体显示多久. 在这里假设显示20秒,设置Interval属性为1000,并设置Enabled = True 设置ProgressBar1的maxvalue=100,minValue=0 Private Sub Timer1_Timer() On Error...

岱山县19581905011： 如何在vb中设计一个窗体,当用户在文本框里输入的时候,同时窗体(form)立刻显示文本框的内容? - ？
邴司百定： Private Sub Text1_Change() Cls Print Text1.Text End Sub如果想让它在制定窗体位置,就放个Label,位置自定 Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub重要的是Text1_Change

岱山县19581905011： 我想在VB中实现这样一个功能？
邴司百定： 建议用MsflexGrid,可以不做数据控件绑定. 1、将数据写进去表格控件用类似Cell(i.j)=N语句即可. 2、 全部入库功能可以用循环.读MsflexGrid一行数据,Insert语句插入数据一次.