SSD4实验报告

中南大学

《SSD4》课程实验

实验报告

题 目 Exp One To Six 学生姓名 石文海 学生学号 3901080413 专业班级 软件 0804

1

实验一

一、评估内容：

(1).易用性，方便用户使用，操作简单，容易学习掌握。用户所需要的信息能够方便，容易地查找到。

(2).网页组织有序化，使繁杂的网页具有条理化，良好的框架体系使用户容易找到自己所需的信息。

(3).导航功能完备，符合浏览规律。 （4）页面排版布局合理 （5）内容简洁易懂

（6）图像色彩搭配协调，且风格统一 （7）视觉清晰度强

实验二

一、 需求分析

In course section \1.3.3 How to Write a Usability Aspect Report (UAR)\you will learn about the major components of a UAR. For this exercise, you are to create an application that will help you memorize what each component of a UAR should contain.

The application you create should feature two functions: 1) when a user selects a UAR component by number, the application should display a description of the component’s contents; and 2) when a user specifies a keyword or phrase, the application should search the displayed

2

description for occurrences of that keyword or phrase and display a count of the number of occurrences and the positions of first and last occurrences, in terms of an offset—number of characters from the beginning of the description

2．概要设计

Imports System.Text.RegularExpressions Public Class Form1 'Display按钮事件处理。

Private Sub btnNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNum.Click

Dim num As String num = txtNum.Text

'通过txtNum传入的值，在txtShow中显示相应内容。 Select Case num Case \

txtShow.Text = \If more than one person is working on the project or more than one analysis technique is being is about a problem (as opposed to a good feature), make sure you have a name that describes the problem, rather than a solution.\ Case \

txtShow.Text = \identifyin for the reader to understand the problem-even if they do not know the system or domain as well as you do.\ Case \

txtShow.Text = \this problem or preserve this good feature. This includes how frequently the users will experience this aspect, whether they are likely to learn how it works, whether it will affect new users, casual users, experienced users, etc.\ Case Else

MessageBox.Show(\, \, MessageBoxButtons.OK, MessageBoxIcon.Warning) End Select End Sub

'Search按钮事件处理

Private Sub btnStr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStr.Click

'当没有选择文本时，弹出窗口提示选择文本。 If (txtNum.Text = \) Then

MessageBox.Show(\, \, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else

3

'确认选择文本后，确定是否输入需要查找的内容。 If (txtStr.Text = \) Then

MessageBox.Show(\, \, MessageBoxButtons.OK, MessageBoxIcon.Warning) Else

Dim strShow As String = txtShow.Text.ToLower Dim strSearch As String = txtStr.Text.ToLower '定义一个需要匹配的正则式。

Dim regSearch As New Regex(strSearch)

'定义一个存放所以与正则式匹配成功的字符串的集合。

Dim matCollection As MatchCollection = regSearch.Matches(strShow) Dim mat As Match

Dim flag As Integer = 1 For Each mat In matCollection

Dim pos As String = mat.Index + 1 '输出第一个匹配成功的字符串的位置 If (flag = 1) Then

lblFirst.Text = \ + pos.ToString() lblFirst.Show() flag = 0 End If

'输出最后一个匹配成功的字符串的位置 If (count > 1) Then

lblLast.Text = \ + count.ToString() + \ + pos.ToString()

lblLast.Show() End If

'Exit按键事件处理。

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

3．调试分析

4

4．附录源程序

_ Partial Class Form1

Inherits System.Windows.Forms.Form

'Form 重写 Dispose，以清理组件列表。

_

Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try

If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally

MyBase.Dispose(disposing) End Try End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。

_ Private Sub InitializeComponent()

Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.txtStr = New System.Windows.Forms.TextBox Me.btnExit = New System.Windows.Forms.Button Me.SuspendLayout()

5

本文来源：https://www.bwwdw.com/article/x2th.html