vb程序设计答案查询软件（用vb编写一个天气预报查询的软件，应该怎么做）

本文目录

• 用vb编写一个天气预报查询的软件，应该怎么做
• 如何用VB制作简单的查询程序，查询EXCEL表格中的内容并显示出结果
• vb编程 编写财务管理打印及查询软件
• VB中如何设计制作一个答题软件
• VB程序设计，要求用VB软件做一个成绩查询的程序，我该怎么做

用vb编写一个天气预报查询的软件，应该怎么做

只要知道了天气预报网的数据库进入信息。用VB直接远程连接数据库，然后读取数据就可以了。整个软件不需要20行代码就搞定了。
如果弄不到数据库的用户名和密码，就用IE控件做。把天气预报网的页面直接显示在IE控件上就可以了。

如何用VB制作简单的查询程序，查询EXCEL表格中的内容并显示出结果

n Explicit
Private objSWbemServices As SWbemServices ’
Private WithEvents DeleteProcessEvent As SWbemSink ’进程结束监控
Dim xlApp As Excel.Application ’定义EXCEL类
Dim xlBook As Excel.Workbook ’定义工件簿类
Dim xlsheet As Excel.Worksheet ’定义工作表类
Private Sub Initial(ss As String)
Dim i, j As Integer
Set xlApp = CreateObject("Excel.Application") ’创建EXCEL应用类
’xlApp.Visible = True ’设置EXCEL可见
’Set xlBook = xlApp.Workbooks.Open(App.Path + "\" & "106-33-LCDTest-20130202.csv") ’打开EXCEL工作簿
Set xlBook = xlApp.Workbooks.Open(App.Path + "\" & ss) ’打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) ’打开EXCEL工作表
xlsheet.Activate ’激活工作表
’-----正式统计数量
Text1.Text = xlsheet.UsedRange.Cells.Rows.Count
sun = xlsheet.UsedRange.Cells.Rows.Count
For i = 2 To xlsheet.UsedRange.Cells.Rows.Count - 1
If Format(xlsheet.Cells(i, 3), "mm/dd") = Format(Now, "mm/dd") Then ’统计今天的数据
Select Case Format(xlsheet.Cells(i, 3), "hh")
Case 0, 1 ’0-1点钟数据统计
If xlsheet.Cells(i, 2) = "PASS" Then
Select Case xlsheet.Cells(i, 6)
Case 1
u(1, 1) = u(1, 1) + 1
Case 2
u(3, 1) = u(3, 1) + 1
Case 3
u(5, 1) = u(5, 1) + 1
Case 4
u(7, 1) = u(7, 1) + 1
Case Else
MsgBox "Nest异常", vbCritical, "消息提示:"
End Select
Else
。。。。。。。。。。。。。。。。。。。。。。。。
Else
Select Case xlsheet.Cells(i, 6)
Case 1
u(2, 12) = u(2, 12) + 1
Case 2
u(4, 12) = u(4, 12) + 1
Case 3
u(6, 12) = u(6, 12) + 1
Case 4
u(8, 12) = u(8, 12) + 1
Case Else
MsgBox "Nest异常", vbCritical, "消息提示:"
End Select
j = j + 1
End If
Case Else
’MsgBox "时间格式异常", vbCritical, "消息提示:"
End Select
End If
Next i
’-----------------------------------------------------------
’xlBook.Save ’保存文件
xlBook.Close (True) ’关闭工作簿
xlApp.Quit ’结束Excel对象
Set xlApp = Nothing ’释放xlApp对象
’MsgBox "初始化完成", vbCritical, "消息提示:OK"
Text2.Text = Format(j / Text1.Text, "0.00%")
End Sub

vb编程 编写财务管理打印及查询软件

这个
你要不就让他转成OFFICE格式再打印
要不就是VB自带的一个
你可以右键工程
添加一个data
report
这个
然后到页面里加上一些控件
再和你的那些数据绑定
这样就可打印出来了

VB中如何设计制作一个答题软件

两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算符可以放在数组里面，数组的下标又可以用随机函数取得，则运算符也是随机的，把取得的运算符放在一个标签里  如 label1
然后用选择语句 select 来判断label1.caption 中的运算符   是什么运算符  自己就做什么样的运算  把结果放在一个变量 c 当中  
最后用 if 语句判断用户所填的答案与 c 是否相同   相同则正确   不同则错误  
代码如下

Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Text1.Text = Rnd(1) * 1000
Text2.Text = Rnd(1) * 1000
Dim b As Integer
Dim a(4) As String
a(1) = "+"
a(2) = "-"
a(3) = "*"
a(4) = "/"
b = Int((Rnd * 4) + 1)
Label1.Caption = a(b)
Text3.Text = ""
Text3.TabIndex = "0"
End Sub
Private Sub Command2_Click()
Dim c As Double
Select Case Label1.Caption
       Case "+"
         c = Text1.Text + Text2.Text
       Case "-"
         c = Text1.Text - Text2.Text
       Case "*"
         c = Text1.Text * Text2.Text
       Case "/"
         c = Text1.Text * Text2.Text
End Select
If Text1.Text = "" Then
   MsgBox "请先选题"
   Else
If Text3.Text = "" Then
   MsgBox "请先做题"
Else
If Text3.Text = c Then
   Label6.Caption = "正确"
   i = i + 1
Else
   Label6.Caption = "错误" & Space(3) & "正确结果为" & c
   j = j + 1
End If
End If
End If
End Sub
Private Sub Command3_Click()
Label7.Caption = i
Label8.Caption = j
End Sub
Private Sub Form_Load()
End Sub

VB程序设计，要求用VB软件做一个成绩查询的程序，我该怎么做

基本要求n 利用菜单和基本控件完成设计。n 完成的程序界面要美观，能够完成管理的整个过程。n 读入已经存在文本文件xscj.txt中的学生成绩并保存。n 文本框中显示学生成绩。n 单科成绩排序：按学号排序，按成绩排序，并显示。n 计算各科最高分，并显示最高分学生信息，并显示。n 计算学生总成绩，并显示。n 按总成绩排名，并显示。3.创新要求在基本要求达到后，进行创新设计，创新方向提示如下：对单个学生的成绩查询。三、设计方法和基本原理程序只需一个窗口，程序界面设计状态示意图：1）通过单击菜单“成绩录入”将已经存在文本文件中的学生成绩读入学号、姓名和五门课程英语、数学、计算机、历史和体育成绩，保存在数组中，并显示在文本框中。2）单击“单科显示”，“学号排序”/“成绩排序”后右侧出现下拉列表框，从中选择科目后，在文本框中显示结果3）单击“单科显示”，“各科最高分”后，文本框显示各科最高分和获得最高分学生的学号姓名。4）单击“考试总成绩”，“总成绩”，计算每个人总成绩，并显示最后结果。5）单击“考试总成绩”“总成绩排名”，按总成绩降序排序。2.问题的解决方案①设计程序界面因为用的全是基本控件，界面设计没有什么难度，照样子拼就可以了，程序要用菜单控制。②编写代码根据问题描述，可以将问题解决分为部分：（1）文本文件中存储学生成绩，首先要把成绩读入，每科成绩、学号和姓名存放在数组中。参考课本第七章（2）显示单科成绩，通过列表框选择要显示的课程，按学号排序。按成绩排序，选择指定的课程排序时学号和姓名要同时交换。计算每门课程的最高分，记录下来再文本框显示。（3）计算每个同学的总成绩放入数组中存储，然后排序方法降序排序进行排名。四、主要技术问题的描述1 ）按成绩排序，选择指定的课程排序时学号和姓名要同时交换2）用于存储学生学号、姓名和五门课程的数组应声明为模块级。一旦数组中有了文件的内容，则可以将其内容逐行地、通过字符串连接符赋给文本框的Text属性，就可以显示出来了。要控制文本框中文本的换行可以利用VB的系统常数vbCrLf来实现。